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This application claims the benefit of U.S. Provisional Application No. 

, filed on February 26, 1999, entitled "Sizing and Diagnostic Utility," the 

specification of which is herein incorporated by reference. 

Portions of the disclosure of this patent document contain material that is 
subject to copyright protection. The copyright owner has no objection to the 
facsimile reproduction by anyone of the patent document or the patent 
disclosure as it appears in the Patent and Trademark Office file ox records, but 
otherwise reserves all copyright rights whatsoever. 

BACKGROUND OF THE INVENTION 

1. FIELD OF THE INVENTION 

This invention relates to the field of databases. 

2. BACKGROUND ART 

Installing and maintaining a database is a complex and time consuming 
task. Typically, a specially trained and /or certified person or team is required for 
installing and setting up a database. Maintaining the database during operation 
often requires tbit a service team be contacted to provide support. 
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Another problem associated with databases is that the database and the 
application using the database are often independently designed and configured, 
leading to fragmentation and decreased performance. Further, over time, the 
data residing in the database changes, as well as the relationships between the 
5 data. This too causes fragmentation, even in databases that may have been well- 
configured initially to suit the original data needs of the user. 

Some databases, such as the Oracle™ database, are organized into 
"tablespaces." Tablespaces are physical allocations of space that hold related 

10 objects such as tables or indexes. Tables and indexes are created in specific 

tablespaces. These tables and indexes are created with an initial allocation within 
a tablespace, which is referred to as an "extent." If a table or index runs out of 
space in the initial extent, a further pre-defined extent may be allocated. New 
extents are often allocated from contiguous free space within a tablespace. As a 

15 tablespace becomes fragmented, the tablespace's free space can be left in such 
small blocks that the free space is virtually unusable. Also, when tables or 
indexes have too many extents, the database's performance degrades. Multiple 
extents require more physical I/O operations to accomplish a query. 

20 A database solution is desired that minimizes the need for specially 

trained personnel for configuring and maintaining a database, and addresses the 
problems associated with database fragmentation, both initially and over time. 
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SUMMARY OF THE INVENTION 



The invention is a system for automated installation and maintenance of 
databases. One or more embodiments provide a user interface (or wizard) that 
5 obtains information from a user regarding aspects of the network environment 
and application data requirements. Using the information obtained from the 
user, a sizing process builds a database, or resizes an existing database, to 
efficiently match the needs of the user. An automated maintenance process self 
monitors, diagnoses, and fixes database problems, such as by rebuilding table 
10 keys and indexes. When the diagnostic cannot fix a problem, appropriate 
notification takes place. 



In one embodiment, the user information is processed using sizing 
formulas to obtain values for building the database. Database scripts and 
15 command files are generated which, when executed, build the appropriately 
configured database. Also, in accordance with the user information, scripts and 
command files may be generated that will implement a database backup process 
upon a user-specified schedule. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 is a block diagram of a general-purpose computer upon which an 
embodiment of the invention may be implemented. 

Figure 2 is a block diagram of an embodiment of the invention. 

Figure 3 is a flow diagram of a sizing process in accordance with an 
embodiment of the invention. 

Figure 4 is a flow diagram of a maintenance process in accordance with an 
embodiment of the invention. 

Figures 5A-5C are flow diagrams of steps within the process of Figure 4. 



10005.1006 



5 



DETAILED DESCRIPTION OF THE INVENTION 



In the following description, numerous specific details are set forth to 
piovide a more thorough description of embodiments of the invention. It will 
5 be apparent, however, to one skilled in the art, that the invention may be 
practiced without these specific details. In other instances, well known features 
have not been described in detail so as not to obscure the invention. 

Embodiment of General-Purpose Computer Environment 

10 

An embodiment of the invention can be implemented as computer 
software in the form of computer readable program code executed on a general- 
purpose computer such as computer 100 illustrated in Figure 1. A keyboard 110 
and mouse 111 are coupled to a bi-directional system bus 118. The keyboard and 
15 mouse are for introducing user input to the computer system and 

communicating that user input to central processing unit (CPU) 113. Other 
suitable input devices may be used in addition to, or in place of, the mouse 111 
and keyboard 110. I/O (input/output) unit 119 coupled to bi-directional system 
bus 118 represents such I/O elements as a printer, A/V (audio/video) I/O, etc. 

20 

Computer 100 includes a video memory 114, main memory 115 and mass 
storage 112, all coupled to bi-directional system bus 118 along with keyboard 
110, mouse 111 and CPU 113. The mass storage 112 may include both fixed and 
removable media, such as magnetic, optical or magnetic optical storage systems 
25 or any other available mass storage technology. Bus 118 may contain, for 
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example, thirty-two address lines for addressing video memory 114 or main 
memory 115. The system bus 118 also includes, for example, a 32-bit data bus 
for transferring data between and among the components, such as CPU 113, 
main memory 115, video memory 114 and mass storage 112. Alternatively, 
5 multiplex data /address lines may be used instead of separate data and address 
lines. 



In one embodiment of the invention, the CPU 113 is a microprocessor 
manufactured by Motorola, such as the 680X0 processor or a microprocessor 

10 manufactured by Intel, such as the 80X86, or Pentium processor, or a SPARC 
microprocessor from Sun Microsystems. However, any other suitable 
microprocessor or microcomputer may be utilized. Main memory 115 is 
comprised of dynamic random access memory (DRAM). Video memory 114 is a 
dual-ported video random access memory. One port of the video memory 114 

15 is coupled to video amplifier 116. The video amplifier 116 is used to drive the 
cathode ray tube (CRT) raster monitor 117. Video amplifier 116 is well known in 
the art and may be implemented by any suitable apparatus. This circuitry 
converts pixel data stored in video memory 114 to a raster signal suitable for use 
by monitor 117. Monitor 117 is a type of monitor suitable for displaying graphic 

20 images. 

Computer 100 may also include a communication interface 120 coupled to 
bus 118. Communication interface 120 provides a two-way data communication 
coupling via a network link 121 to a local network 122. For example, if 
25 communication interface 120 is an integrated services digital network (ISDN) 
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card or a modem, communication interface 120 provides a data communication 
connection to the corresponding type of telephone line, which comprises part of 
network link 121. If communication interface 120 is a local area network (LAN) 
card, communication interface 120 provides a data communication connection 
5 via network link 121 to a compatible LAN. Wireless links are also possible. In 
any such implementation, communication interface 120 sends and receives 
electrical, electromagnetic or optical signals which carry digital data streams 
representing various types of information. 

10 Network link 121 typically provides data communication through one or 

more networks to other data devices. For example, network link 121 may 
provide a connection through local network 122 to host computer 123 or to data 
equipment operated by an Internet Service Provider (ISP) 124. ISP 124 in turn 
provides data communication services through the world wide packet data 

15 communication network now commonly referred to as the "Internet" 125. Local 
network 122 and Internet 125 both use electrical, electromagnetic or optical 
signals which carry digital data streams. The signals through the various 
networks and the signals on network link 121 and through communication 
interface 120, which carry the digital data to and from computer 100, are 

20 exemplary forms of carrier waves transporting the information. 

Computer 100 can send messages and receive data, including program 
code, through the network(s), network link 121, and communication interface 
120. In the Internet example, server 126 might transmit a requested code for an 
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application program through Internet 125, ISP 124, local network 122 and 
communication interface 120. 

The received code may be executed by CPU 113 as it is received, and /or 
5 stored in mass storage 112, or other non-volatile storage for later execution. In 
this manner, computer 100 may obtain application code in the form of a carrier 
wave. 

The computer systems described above are for purposes of example only. 
10 An embodiment of the invention may be implemented in any type of computer 
system or programming or processing environment. 

Embodiment of Database Sizing and Diagnostic Utility 

15 Embodiments of the invention are directed at building and maintaining a 

database in which the sizing allocations conform to the needs of the user 
application that is using the database. The initial configuration of the database is 
performed based on user-provided information about the networking 
environment and assumptions about the application needs of the user. The user 

20 assumptions may become less accurate over time, in which case, an embodiment 
of the invention may be used to obtain new assumptions from the user 
regarding application needs. Those new assumptions are then used to resize the 
database. 
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As an example, an Oracle database may be used to implement a payroll 
system application. In such a case, user information is obtained in the form of 
assumptions about the projected number of employees in the company, the 
number and types of payroll items that apply to the average employee, etc. The 
5 database sizing and diagnostic utility is configured with formulas for converting 
those payroll assumptions into table parameters that are then used to size the 
database. 

An embodiment of the invention is illustrated in Figure 2. As shown, a 
10 database sizing and diagnostic utility 200 comprises a database building/sizing 
process 201 and a database maintenance/diagnostic process 204 Within 
database building/ sizing process 201 are a graphic user interface (GUI) 202 (also 
referred to herein as a " wizard") and index/ table sizing formulas 203. 

15 In one embodiment, GUI 202 presents a sequence of panels for receiving 

user input. It will be obvious, however, that the invention is not limited to those 
GUI mechanisms, and that any form of user interface may be employed (e.g., an 
audio interface). GUI 202 is used to ask questions of the user and to obtain user 
information in return. The user information comprises information about the 

20 networking environment, assumptions about the application-specific needs of 
the user, and user preferences for database backup operations. 

The index /table sizing formulas 203 are used to transform the user 
information into database sizing parameters that are incorporated into database 
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scripts and command files 205 for building and sizing (or resizing) the database 
207. Backup scripts and command files 206 are generated by database building 
and sizing process 201 from the user-specified backup preferences. 



5 Database maintenance/ diagnostic process 204 executes on a periodic basis 

to evaluate the performance of the database (though a user may also manually 
prompt the database maintenance /diagnostic process 204 to execute). Entries 
made to a logfile may serve as an indicator to a user that it may be appropriate 
to resize the database 207. Problems with tables and indexes which are identified 
10 by the database maintenance /diagnostic process 204 are automatically fixed 
when possible. 

Database Building /Sizing Process 

15 The database building and sizing process 203 is used by the user to 

optionally install and configure the database engine on their network server, and 
to build a pre-sized database for a given database application. The advantage of 
presizing the database correctly is a reduction in tablespace fragmentation and 
increased performance. Presizing the database, along with the automated 

20 database maintenance /diagnostic process 204, permit a user to install a database 
application without requiring an on-site certified database specialist to manage 
the database. 
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Figure 3 is a flow diagram of the database building/ sizing process 201 in 
accordance with an embodiment of the invention. In step 300, process 201 
optionally installs and configures the database engine on the user's server 
machine. If this is a resizing operation or if the database engine is already 
5 installed, step 300 is skipped. In step 301, the database building/sizing process 
201 collects information from the user via GUI 202 (e.g., in interview format). 

Step 301 is subdivided into component steps 301 A-301B. In step 301A, the 
user information obtained includes information regarding the user's network 
environment (number of users and amount of RAM, for instance). In step 301B, 
process 201 obtains information from the user regarding how many drives the 
user wants the database to span. In step 301C, the user information obtained 
concerns the data requirements of the database application, e.g., for a payroll 
application, the user's payroll data requirements (number of employees, number 
of company codes, and amount of history to keep online, for instance). In step 
301D, GUI 202 obtains the user's preferences for database backup operations, 
including the backup mode (if more than one mode is available) and the backup 
schedule. 

20 In step 302, the database building/sizing process 201 generates a series of 

instructions, for example SQL scripts and Windows NT command files, in 
accordance with the user information obtained in step 301. Specifically, in step 
302A, instructions are generated to physically create a database that will 
sufficiently house the user's data, and that will be optimized and tuned to 
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perform as well as possible, e.g., based on the network environment information 
and other user information. In step 302B, instructions are generated to 
implement the specified periodic backup operation. In step 303, database 
building/sizing process 201 executes the command files to physically build the 
5 database. 

In one embodiment of the invention, database building/ sizing process 201 
and its constituent GUI 202 are implemented as a "wizard" application. The user 
is presented with a sequence of panels from which the user information of step 

10 301 is obtained. One possible implementation of such a wizard application is 
described in Appendix A, with corresponding pseudo-code, under the heading 
"dbsizer.exe: Oracle Sizing Wizard." A database utility program for performing 
certain database procedures with command line parameters is described in 
Appendix A under the heading of "brunner.exe: Database Utility Program/' with 

15 accompanying pseudo-code and source code. 

Database Maintenance /Diagnostic Process 

The database maintenance/diagnostic process 204 is an unattended 
20 database diagnostic and auto-maintenance utility used by the user to perform 
the following database procedures: 



25 



1. 
2. 
3. 



check the database for tablespace fragmentation 
check the tablespaces for available free space 
check the hard drives for available free space 
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4. fix any problems that can be fixed automatically without risk 

The database maintenance /diagnostic process 204 is scheduled to run at 
intervals, e.g., once per week, and terminates automatically upon completion. 
5 Process messages and errors are written to a logfile for user reference. 

The general flow of the maintenance /diagnostic process is illustrated in 
Figure 4. In step 401, all objects (e.g., tables and indexes) are analyzed, and 
information is gathered regarding those objects that can be fixed automatically 
10 and those objects that require manual fixing. In step 402, the database 

performance is evaluated, with problem areas noted in the logfile. In step 403, 
those tables that were designated for automatic fixing in step 401 are fixed. In 
step 404, indexes are rebuilt where necessary. Steps 401-403 are described in 
more detail below with reference to Figures 5A-5C, respectively. 

15 

Figure 5A is directed to table analysis and the gathering of information 
about the database. In step 500, the database maintenance/ diagnostic process 
204 coalesces all tablespaces, and, in step 501, builds a list of all high-risk objects 
with extents greater than one. Objects are considered high-risk if their extents 

20 are numerous enough that an automatic fixing operation could compromise 
their integrity. These high-risk objects are listed in the logfile, in step 502, as 
objects that will require manual fixing. In step 503, a report is generated on the 
database internals. In step 504, all tables are analyzed, and in step 505, a list is 
made of those objects that should be automatically fixed by the database 

25 maintenance /diagnostic process. 
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Figure 5B illustrates steps for performing database performance analysis. 
In step 506, a table is generated that contains entries for database performance 
values in different categories. In step 507, performance criteria are obtained that 
5 specify, for example, error levels and warning levels for each performance 

category. Step 508, comprising steps 508A-508D, is performed for each entry in 
the performance table generated in step 506. In step 508 A, the performance 
value for one entry in the table is compared with the corresponding error level. 
If the performance value is above the specified error level, an error message is 

10 written to the logfile in step 508B, and the process continues at step 509. If, in 
step 508A, the performance value is not above the error level, then the 
performance value is compared with the warning level in step 508C. If the 
performance value is above the error level a warning message is written to the 
logfile in step 508D before proceeding to step 509. If the performance value is 

15 not above the warning level in step 508C, the process continues at step 509. 

Step 509, comprising steps 509A-509B, is performed for each hard drive 
upon which the database is spread. In step 509 A, the free space of the hard drive 
is compared with a minimum space threshold value needed to support the 
20 database. If the free space available does not meet the minimum space threshold 
value, a warning message is written to the logfile in step 509B. 



Figure 5C illustrates one method for fixing tables in accordance with an 
embodiment of the invention. In step 510, the database maintenance /diagnostic 
25 process 204 opens the list of tables that can be automatically fixed. In step 511, 
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the first table listed is selected for fixing. In step 512, a DDL script is generated 
that will rebuild the primary keys of the table, and, in step 513, a DDL script is 
similarly generated to rebuild the table's foreign keys. 

In step 514, the table data is exported to an export file and, in step 515, the 
table is dropped. In step 516, the table data in the export file is imported back in. 
In steps 517 and 518, respectively, the primary key and foreign key rebuild 
scripts are run to fix the table. In step 519, if the current table is not the last table 
on the list, the next table is selected and the process continues at step 512; 
otherwise, the process continues in step 404 of Figure 4. 

One possible implementation of database maintenance /diagnostic process 
204 is described in Appendix A, with corresponding pseudo-code and source 
code, under the heading "hwb.exe: Health and Weil-Being Utility." 

Thus, a database sizing and diagnostic utility has been described in 
conjunction with one or more embodiments. The invention is defined by the 
claims and their full scope of equivalents. 
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Chapter 



APPENDIX A 



dbsizer.exe 

Oracle Sizing Wizard 



Overview 



The dbsizer utility is used by the client to (optionally) install and configure the Oracle Database 
engine on their Network Server, and to build a pre-sized ADP PC/Payroll for Windows database. 
The advantage of pre-sizing the database correctly is a reduction in tablespace fragmentation and 
increased performance. This process of pre-sizing the database along with the Health-and-Wel! 
Being utility (bwb.exe) allows ADP to install an Oracle based application without requiring an 
Oracle DBA on-site to manage the database. 

Process Overview 

The Oracle Sizing Wizard ('the wizard') collects information from the user regarding their network 
environment (# users, amount of RAM, etc), their payroll data requirements (# of employees, # of 
company codes, amount of history to keep online, etc) and generates a series of SQL scripts and 
NT command files to physically create a database that will sufficiently house the client's data and 
perform as well as possible. The steps break down as follows; 

1. Install and Configure Oracle on the client's Server (if requested, this is an optional 
step). 

2. Gather information about the user's network environment. 

3. Determine how many drives the user want to spread the Oracle database over 
(the more the better). 

4. Gather information about the client's company and their payroll data 
requirements. 

5. Ask the user which backup method they would like to use to backup their PCPW 
database (The wizard can install three different types of automated backups, as 
well as support a custom one supplied by the client) 

6. Ask the user when they would like the backup to take place (schedule) 

7. Build the scripts and command files to build the database sized according to the 
user's input, and build script and command files to implement the backup method 
chosen by the user. 

8. Execute the command files to physically build the database, 



3 
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Architectural Overview 

The wizard is a Visual Basic 5.0 application that looks like a standard wizard. It appears to be one 
window that asks a series of questions and performs a task at the end when all necessary 
information has been gathered. It can be thought of as a 'interview-style' application. 

Technically, each panel is a separate window and as the user presses the Back or Next button, to 
display the previous or next panel, the application hides the current window and displays the next 
one. 



Control information is stored in an Access97 format database named default.mdb There are a 
number of tables in this database that are used by the wizard. 



Table Name 


Description / Usage 


DBMisc 


Miscellaneous information. Backup Method 
and Schedule 


DBOptions 


Items that are used to create the 
INITPCPW.ORA file. These items control the 
configuration of the Oracle database engine 


ExistingTablespaces 


Tablespaces and current size. Used by the 
wizard in resize mode to resize existing 
tablespaces. 


FileLocations 


Location of Oracle components and the 
PCPW admin folder 


Indexes 


Index sizing formulas and which tablespace 
each index is associated with 


OracleComponents 


For each Oracle Version supported, which 
components are to be installed by the 
automatic response script. 


OracleVersions 


Supported Oracle Versions 


RangedObjects 


Ranged formulas. These formulas override 
the formulas in Indexes, Tables and 
DBOptions. They allow multiple formulas to 
be defined for different ranges of NUMBER 
OF EMPLOYEES 


Tables 


Table sizing formulas and which tablespace 
each table is associated with 


Tablespace 


List of tablespaces 



4 
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VariablesNNNNNN 


There is one table for each Language 
supported. The NNNNNN value must match 
the Language id stored in the OS registry. 
These tables contain the prompts for 
Network Environment questions and Company 
Information questions. 





Pseduo-Code 



1 Panel 1 -The Welcome panel (frmPagel) 

get the OS language from the registry 
initialize program variables and counters 
search for the ADPSETUP.INI file 
for each addressable drive 

look in \ADP\PCPW.DSK\DISK1 
if not found 

for each addressable drive 

search all folders for ADPSETUP.INI 

end if 
if not found 

display error message 

exit 
end if 

retrieve the Server's IP address from the ADPSETUP.INI file 
retrieve the location of the Migrate folder from the ADPSETUP.INI file 
' Navigation 

1 Back is always disabled 

' Next takes you to Panel 2 - Install Oracle (-rmPage2) 

' Panel 2 -Install Oracle (frmPage2) 

open the default database (default.mdb) 
if it's not found in the current folder 

pop a dialog so the user can tell you where it is. 
end if 

If we're running in Design mode 

Display the Load Configuration push button 
end if 

' Navigation 

' Back takes you to Panel 1 - Welcome (frmPagel) 
1 Next has the following processing logic 

if the user wants the wizard to install Oracle 

if Oracle is RUNNING (check for active service) 
display error message 
exit 

end if 

pop a dialog box to get the Server IP address (default from 
ADPSETUP.INI) 

If the user changed the IP sodress 

Write the new value to the ADPSETUP.INI file 

End if 

Search for the Oracle CD 



5 
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Run the Oracle installation program with a scripted response file 
If it fails 

Exit 

endif 

End if 

Search for an existing PCPW database 
If found 

Ask the user if they want to resize the existing database 
If they say no 
Exit 

End if 

If they say yes 

Make sure the instance if running and the database is up 

End if 

End if 

If we installed Oracle 

Display Panel 4 - Network Environment (frmNetworkEnv) 

Else 

Display Panel 3 - Where is Oracle (frmPage3) 
End if 

4 Panel 3 - Where is Oracle (frmPage3) 

retrieve the default locations for the Oracle files 
' Navigation 

1 Back takes you to Panel 2 - Install Oracle (frmPage2) 
' Next has the following processing logic 
if we're not in development mode 

verify the locations entered by the user 

BIN should contain ORADIM73.EXE 
RDBMS should contain CATALOG. SQL 

End if 

Make sure the version of Oracle is 7.3.4... 
Save the new locations as the defaults 
If we're in RESIZE mode 

Display Panel 6 - Company Information (frmPageS) 

Else 

Display Panel 4 - Network Environment (frmNetworkEnv) 

End if 

' Panel 4 - Network Environment (frmNetworkEnv) 

load all Network questions from the database into the grid 
' Navigation 

' Back has the following processing logic 
if the wizard installed Oracle 

Display Panel 2 - Install Oracle (frmPage2) 

Else 

Display Panel 3 - Where is Oracle (frmPage3) 

end if 

r Next has the following processing logic 
if we're in DEVELOPMENT mode 

Display Database Options (frmPage4) 

' NOTE: This is a DEVELOPMENT mode ONLY panel 

Else 

Display Panel 5 - Drives (frmDrives) 

6 
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end if 



1 Panel 5 - Drives (frmDrives) 

load combo boxes 

for each addressable drive 

make sure we can write to it 
if we can 

determine amount of free space 
add it to all 9 list boxes 

end if 
next drive 

sort ail 9 list boxes by free space 

add <None> item to the top of each list box 

for each list box 

select the drive with the most space free that hasn't been selected yet 

next 
' Navigation 

' Back has the following processing logic 
if we're in DEVELOPMENT mode 

Display Database Options (frmPage4) 

' NOTE: This is a DEVELOPMENT mode ONLY panel 

Else 

Display Panel 4 - Network Environment (frmNetworkEnv) 

end if 

' Next has the following processing logic 

Display Panel 6 - Company Information (frmPage5) 



4 Panel 6 - Company Information (frmPageS) 

load all company questions from the database into the grid 
' Navigation 

' Back has the following processing logic 
if we're in RESIZE mode 

if the wizard installed Oracle 

Display Panel 2 - Install Oracle (frmPage2) 

Else 

Display Panel 3 - Where is Oracle (frmPage3) 

end if 

else 

Display Panel 

end if 

' Next has the following processing logic 
if we're in RESIZE mode 

Display Panel 9b - Resize (frmPage9) 

Else 

Display Panel 7 - Backup Information (frmPage6) 

end if 

* Panel 7 - Backup Information (frmPage6) 

display editable form with current values from default.mdb 
' Navigation 

' Back has the following processing logic 

Display Panel 6 - Company Information (frmPage5) 
' Next has the following processing logic 

7 



10005.1006 



21 



Display Panel 8 - Backup Schedule (umPage7) 



* Panel 8 * Backup Schedul (frmPage7) 

display editable form with current values from default.mdb 
if we're in DEVELOPMENT mode 

display the "Save Configuration" push button 
end if 

' Navigation 

' Back has the following processing logic 

Display Panel 7 - Backup Information (frmPage6) 
' Next has the following processing logic 
Based upon the number of drives selected 

Set the target drive for each database element 
' See the functional spec for more information 
Display Panel 9a - Please wait, Database Creation Scripts (frmPage8) 

' Panel 9a - Please wait . Database Creation Scripts (frmPage8) 

' Create the scripts and command files to build the database 
' a progress bar is displayed during this panel 

store all the user id's and encoded passwords in the NT Server's registry 
make sure all necessary folders exist 
if any do not 

create them 
end if 

make sure there's at least 1 MEG free for scripts on the 1 st drive 
create the scripts and command files 
create the INITPCPW.ORA file 
create the SETUPDB.SQL file 
create the TABPCPW.SQL file 

take the TABXXX.TML file 

merge the table sizing formulas from default.mdb 
create the IDXPCPW.SQL file 

take the IDXXXX.TML file 

merge the index sizing formulas from default.mdb 
create the backup scripts and command files 
create the AT schedule entry 

copy all required files from the DBSIZER folder to the ADMIN folder 
create the command files to create the database 

backup the PCPW registry entries to a PCPW.REG file in the ADMIN folder 
' Navigation 

1 the user has no choice, as soon as all files are created 
Display Panel 10 - Next Steps (frmNextSteps) 

* Panel 9b - Please wait, Database Resize Scripts (frmPage9) 

' Create the scripts and command files to resize the database 
' a progress bar is displayed during this panel 
create the scripts and command files 
calculate size needed for each table 
calculate size needed for each index 
rollup the sizes into the tablespaces 
for each tablespace 

determine the current size 

compare it to the new size 

if the new size if bigger 

8 
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calculate the difference 

find a drive which can handle the difference 

check the drive the current tablespace is on 

if it fits, use it 

if not 

check other drives that are host PCPW data 
if it fits and passes the neighbor rules 
' Neighbor rule state which tab/espaces 

can 

' live on the same drives as others 
' see the functional spec for more 

information 

use it 

end if 

if we found a new home, 

build a script to create a new datafile for the 

tablespace 

else 

pop a dialog and ask the user for a new drive 
if they give one 

make sure it has enough room 

if so 

build the script 

else 

exit 

end if 

end if 

end if 

end if 

next tablespace 
' Navigation 

1 the user has no choice, as soon as all fifes are created 
Display Panel 10 - Next Steps (frmNextSteps) 

' Panel 10 - Next Steps (frmNextSteps) 

display a summary of the size of the database to be created or resized 

* Navigation 

' Create Database button pushed 
If in RESIZE mode 

Display Panel 1 1b - Database Resize in Process (frmResize) 

else 

Display Panel 11a - Database Creation in Process (frmCreation) 
' Cancel 

warn the user that if they cancel, they have to start over 
if they say okay 

delete scripts and command files 

exit 
end if 

* Panel 11a - Database Creation in Process (frmCreation) 

Display a checklist of steps to create the database 
Execute the command file createdb.cmd 
As each step completes in createdb.cmd 

A 'checkpoint file is created (stepl.chk, step2.chk...step9.chk) 
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As each checkpoint file is created 

Display a checkmark on the panel next to the step just completed. 
When all 9 steps are complete. 

Cleanup scripts and command files 

exit 

1 Panel 11b - Database Resizing in Process (frmResize) 

Display a checklist of steps to resize the database 
Execute the command file resizedb.cmd 
As each step completes in resizedb.cmd 

A 'checkpoint* file is created (stepl.chk) 
As each checkpoint file is created 

Display a checkmark on the panel next to the step just completed. 
When all steps are complete. 

Cleanup scripts and command files 

exit 
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Command Line Parameters 



The following command line parameters are recognized by the brunner utility 
/D 

Runs dbsizer in development mode. Development mode allows the user to modify 
the sizing formulas for tables and indexes as well as the Oracle engine parameters 
that are written to the INITPCPW.ORA file. In addition, the user is allowed to load and 
save multiple configuration files. (Note: When running in regular mode, only the 
configuration file defaultmdb will be used.) 

/DEBUG 

Runs dbsizer in debug mode. Normally as the Oracle utilities are executed, the 
command window which executes them is hidden from the user completely, including 
the task bar. If you run the wizard in debug mode, the command windows will only be 
minimized instead of hidden giving you the ability to see the command lines and any 
output from the utilities being executed. 
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NT Server - Registry Entries 



When the Oracle sizing wizard is run by the client to create their database, a number 
of entries are written to the NT Server's system registry. The following entries are 
created by dbsizer during database creation. 

KEYS USED BY THE HEALTH and WELL-BEING UTILITY (HWB) 

tHXBY_CURREJrr_USBR\Software\VB and VBA Progra* Settings\PCPWOra\LogFiles] 
•Age"»"90 # 

£iflCBY_CURRENT_USER\Software\VB and VBA Program Set tings \PCPWOra\Extents] 
•Number- a" 1" 

[HXBY_CURRENT_USER \ Sof twa re \ VB and VBA Program Settings\PCPWOra\HWB) 

■Tablea*=*l" 

•Performance" =*0" 

"Use Note of the Day"*"True" 

The Age key controls how long messages are kept in the brunner.log file. This value 
is set during install and there is no method for changing this value with the exception 
of using the regedit program supplied as part of the NT Server Operating System. 

The Number key controls how many extents are required before HWB will attempt to 
automatically fix the table or index. 

The last three are used by HWB to control whether or not Tables and/or 
Performance statistics are checked during execution. By default, tables are checked 
, performance is not. The Note of the Day entry determines whether or not HWB will 
report fatal errors back to the user via the T_NOTE_OF_THE J)AY table. 



[ HXEY_CURRENT_US ER \ Software \ VB and VBA Program Settings\PCPWOra\Keys] 
" PCPAYSYS ■«■__■" e ** Uh ■ 
• INTERNAL * » " Ua Y}_f5* 
•MaintKey" = w _*~e '*Uh• 
*MIGRATE• = " r e_eY=A • 
•SUPEROP» 3 -_«6{ _ 
•REPORTS- =»" , u J Xy_W 
•Default- *»_*-e_~Uh" 
■SYS" = " 1 -_C_L((X" 
" SYSTEM »»• 1 3 TNaYI|) ■ 

These keys represent the user id's and passwords which can be part of a template 
{r fiie. in order to use one of the user id / password combinations, the user id must 
be surrounded by %'s in the bit file. For example, to use the SrvMgr23 utility to run a 
SQL file named dothis.sql and use the INTERNAL id and password, the following line 
would be in the dothis.brt file. 

connect INTERNAL / %INTERNAL% 
_aoiae sql code here 

At run time, brunner will retrieve the value for the INTERNAL key from the registry, 
decode the key value and write the following to the tempn.sql file in the c:\temp folder 
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connect INTERNAL / THEP AS SWORD 
-some sql code here 



fHXBY_CURRBNT_DSBR\Software\VB and VBA Program Settinga\PCPWOra\Files] 
• Home ■ » ■ C : \ \ORANT\ \BIN» 

•Maintenance» s -C:\\ORADATA\\PCPW\\admin\\mainf 
•Admin- = • C : \\ORADATA\ \PCPW\ \ ADMIN" 
■Backup - - - " 

These settings let the Wizard, BRunner and HWB know where to find other files that 
they may need during execution 
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Chapter 




brunner.exe 

Database Utility Program 



Overview 



The brunner utility is used by the client to perform the following database procedures 



1 . Manually bring the database up in normal or restricted 
mode 

2. Manually shut the database down 

3. Manually perform the database backup as established by 
the sizing wizard during database creation. 

4. Manually reschedule the automated backup process as 



established by the sizing wizard during database creation. 

The brunner utility is also used to perform some of these functions during the 
database creation process. In this mode, brunner is executed with command line 
parameters so that user intervention is not required. (See the dbsizer.exe detailed 
design spec, dbsizer.doc, for more information on the usage of brunner during 
database creation) 

In general, regardless of which task brunner is performing the process is as follows; 

1 . check to see if the database is up or down. 

2. if the function is passed on the command line, perform 
it... if not, display a menu of available functions based upon the 
current state of the database and let the user select which function to 
perform. 

3. create a command file to perform the requested function 
(if SQL based, create the SQL file to perform the function and a 
command file to execute the SQL using the SrvMgr23 utility supplied 
by Oracle) 

4. delete the command file and the SQL file 

5. exit 
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Some of the functions use pre-defined command file templates called .BRT files. 
These files are identical to the command files or SQL files that will be used to perform 
the various brunner functions, however they require that an Oracle password be 
supplied on the command line to the Oracle utility that is being executed. In order to 
hide the password, placeholders are used in the .BRT files and brunner will perform 
the following steps when executing a secure batch file. 



1. open the batch template file (.brt) 

2. create a temporary batch file (tempn.cmd) in the c:\temp 
folder 

3. read each line from the template file 

4. if the line contains a password placeholder, lookup the 
password in the system registry, decode it and place it in the 
temporary file, otherwise write the line as is to the temporary file. 

5. execute the temporary file 

6. delete the temporary file 

7. exit 



During execution, brunner maintains a log file which contains information about each 
run. Dates and times are written to the log along with the function which was 
requested and any errors that occurred during execution. 

At any given time, the log file contains entries for the past 90 days. Log entries older 
than 90 days are rolled off the log. The number of days (90 is the default) worth of 
messages kept in the log file can be altered by changing an entry in the system 
registry. See the section on Registry entries for more information. 
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Psedo-Code 



Following is pseudo-code for the bunner utility program. 

center the main form 

if the command line contains "/MSG:" 

take the text that follows and display it on the screen in a message box 

exit 
end if 

get the location of the Oracle binaries from the registry 
get the language setting from the registry 
if the command line is NOT /SCHEDULE then 

check to see if the database is up or down (run checkdb.brt) 
if we can't determine the status of the database 
log the error 
exit 

end if 

display the appropriate bitmap on the form so the user knows the db status 
end if 

if no command line was specified 

display a menu of choices to the user 
end if 

write the start time and request to the log file 
branch to the requested process 

' backup branch 

if the database is down, we can't perform the backup, so... 

log the error 

exit 
end if 

if we're using the copy or compress method 

make sure there's enough disk space on the destination drive 
if not 

log the error 
exit 

end if 

if the destination folder does not exist 
create it 

end if 
end if 

bookmark the Oracle alter log 

perform the backup (run backup.brt which is created by dbsizer during install) 
check the Oracle alter log for Oracle errors 
if any errors 

write them to the brunner log 

write a Note of the Day entry to the database 
end if 

close the log file 
exit 
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' start the database (normal) branch 

bookmark the Oracle alert log 
start the database (run startdb.brt) 
check the Oracle alert log for errors 
if any errors 

write them to the brunner log 
end if 

close the log file 
exit 

' stop the database branch 
1 parameter: RunStats 

if RunStats is true 

update database statistics (run doperf.sql) 
end if 

bookmark the Oracle alert log 
stop the database (run stopdb.brt) 
check the Oracle alert log for errors 
if any errors 

write them to the brunner log 
end if 

close the log file 
exit 

' re-start the database branch 

' difference between start and restart, is that restart clears any 

' Note of the Day entry in the database. This is done in the 

' restart, brt template file. 

bookmark the Oracle alert log 

start the database (run restartdb.brt) 

check the Oracle alert log for errors 

if any errors 

write them to the brunner log 
end if 

close the log file 
exit 

' schedule branch 

check to see if there's already a call to BRUNNER with /SCHEDULE in the AT list 
if not 

run schdback.cmd to schedule the backup process 
end if 
exit 

' start the database (restricted) branch 

bookmark the Oracle alert log 
start the database (run restrictbrt) 
check the Oracle alert log for errors 
if any errors 

write them to the brunner log 
end if 

close the log file 
exit 
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Command Line Parameters 



The following command line parameters are recognized by the brunner utility 
/BACKUP 

causes brunner to execute the backup, brt file to perform the backup procedure 
/BACKUPSTOP 

same as /BACKUP, except it causes brunner to update database statistics (by 
running doperf.sql) before performing the backup. 

/MSG: msgText 

displays a dialog box with the text, msgText 
/RESTRICT 

starts the database in restricted mode 
/SCHEDULE 

schedules the automated backup using NT's AT scheduler service, (runs the 
schdback.cmd command file.) 

/START 

starts the database in normal mode 
/STOP 

stops the database using the immediate mode 
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NT Server - Registry Entries 



When the Oracle sizing wizard is run by the client to create their database, a number 
of entries are written to the NT Server's system registry. The following entries are 
used by the brunner utility during execution 

fHXSY_COTRBNT_USER\Softvare\VB and VBA Program Sot tings \PCPWOra\LogFiles] 
•Age"*"90" 

This key controls how long messages are kept in the brunner.log file. This value is set 
during install and there is no method for changing this value with the exception of 
using the regedit program supplied as part of the NT Server Operating System. 



[HKBY_a7RRBNT_0SER\Software\VB and VBA Program Settinga\PCPWOra\KeyaJ 

• PCPAYSYS " - " e " Uh" 

• INTERNAL" -"Ua Y}_f6" 

•MaintKey"-"_«~e_"Uh" 

"MIGRATE ■ r e_eY=A ■ 

•SUPEROP"»"_»6| 

" REPORTS " a ■ , \i%y_ * •/ " 

•Default"="_=~e_"Uh" 

•SYS ,, - ,,l -_C_L (a- 

■ SYSTEM" a " £3TNaYIfc>" 

These keys represent the user id's and passwords which can be part of a template 
(.brt) file. In order to use one of the user id / password combinations, the user id must 
be surrounded by %'s in the .brt file. For example, to use the SrvMgr23 utility to run a 
SQL file named dothis.sql and use the INTERNAL id and password, the following line 
would be in the dothis.brt file. 

connect INTERNAL / \ INTERNAL* 
_aoae aql code here 

At run time, brunner will retrieve the value for the INTERNAL key from the registry, 
decode the key value and write the following to the tempn.sql file in the c:\temp folder 

connect INTERNAL / THEP AS SWORD 
_some aql code here 



[HKBY_CURRJ2NT_USER\Softvare\VB and VBA Program Settings\PCPWOra\Files] 
■Home»="C:\\ORANT\\BIN" 

■Maintenance"3"C:\\ORADATA\\PCPW\\admin\\maint" 
•Admin" = "C : \ \ORADATA\\P CP W\\ ADMIN" 
■Backup" »" " 

These settings let brunner know where to find other files that it may need during 
execution 
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Source Code 



Following the source code for the brunner utility version 1 .05-1 0. 



VERSION 5.00 

Begin VB.Form Forml 

Caption 

ClientHeight 

ClientLeft 

ClientTop 

ClientWidth 

Icon 

LinkTopic 
ScaleHeight 
ScaleWidth 
StartUpPosition 



Begin VB . CommandButton Commandl 



" ADP PC/Payroll Batch Runner" 

3705 

60 

345 

5805 

"Forml. frx" : 0000 

» Forml" 

3705 

5805 

'CenterScreen 



Close 
390 
4515 
4 

3135 
0 

1140 



False 



0 1 False 
3000 
4860 
495 



Caption 
Height 
Left 

Tablndex 
Top 

Visible 
width 

End 

Begin VB. Timer Timer2 
Enabled 
Interval 
Left 
Top 

End 

Begin VB. Timer Timerl 

Enabled 

Interval 

Left 

Top 
End 

Begin VB . PictureBox Picturel 
BorderStyle = 0 'None 

BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strikethrough 
EndProperty 



0 

1000 
4860 
45 



False 



"Arial 
8.25 
0 

400 
0 



0 
0 



False 
False 
False 



Height 
Left 
Picture 
ScaleHeight 
ScaleWidth 
Tablndex 
Top 
Width 
End 

Begin VB. Label Label3 
Alignment 
Caption 

BeginProperty Font 
Name 



3180 
120 

-Forml. frx" :1CFA 

3180 

1830 

0 

75 

1830 



2 'Center 
"Process msg here" 



"Arial" 
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Size 


— 


12 




Charset 


s 


0 




Weight 


a 


700 


•False 


Underline 


a 


0 


Italic 


3 


0 


•False 


Strikethrough 


s 


0 


•False 



EndProperty 

Height 

Left 

Tablndex 
Top 

Visible 
Width 

End 

Begin VB. Label Label4 
Caption 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB . Label Label2 
Caption 

BeginProperty Font 
Name 
Size 
Charset 
Weight 
Underline 
Italic 

StriJcethrough 
EndProperty 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB. Label Label 1 
Caption 



855 

20S5 

5 

2160 
0 

3600 



False 



"Label4* 

180 

135 

3 

3315 
1395 



"Process running: 



"Arial" 

9.75 

0 

700 
0 



0 
0 

300 

2055 

2 

120 
3630 



• False 
' False 

* False 



- Label 1 M 
1230 
2055 
1 

435 
3495 



Height 
Left 

Tablndex 
Top 
Width 
End 

End 

Attribute VB Name = "Forml" 

Attribute VBJSlobalNameSpace = False 

Attribute VB~Creatable = False 

Attribute VB_PredeclaredId = True 

Attribute VB_Exposed = False 

Dim startTime As Date 

Dim runningprocess As String 

Dim myTaskld As Long 

Dim logFile As Integer 

Dim g_user As Boolean 

Dim g_MaintPassword As String 
Dim g_BackupFolder As String 

Dim lAlertLogLength As Double 



Private Sub Commandl_Click ( ) 
End 
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End Sub 



Private Sub Form_Load() 
Dim i A3 Integer 



• cleanup 0 function added Co make sure any file remnants weren't 

• left behind from previous BRunner processes . 



• rc * Cleanup () 

i = SetWindowPos(Me.hWnd, HWNDJTOPMOST, 

Me. Left \ Screen. TwipsPerPixelX, Me. Top \ Screen .TwipsPerPixelY, 

Me. Width \ Screen . TwipsPerPixelX, Me. Height \ Screen . TwipsPerPixelY, 0) 

runningProcess » 
bProcess a False 

If Mid$ (Command$, 1, 5) = "/MSG:" Then 

cmdLine = Command$ 

frmMessage.Show vbModal 
End If 

g_szOracleHome = GetSettingC'PCPWOra" , "Files", "Home", "") 



1 get the language 



g_LANGUAGE - RegGetValue (HK£Y_CURRENT__USER, "Control Panel\International " , "Locale") 

Select Case g_LANGUAGE 
Case "00001009" 

g_LANGOFFSET = 1000 
Case "OOOOOCOC" 

g_LANGQFFSET = 2000 
Case Else 

g_LANGOFFSET * 0 
End Select 

On Error GoTo NoLanguageRes 

txt$ ■ RES (101) 

GoTo LanguageContinue 

NoLanguageRes : 

g_LANGOFFSET = 0 

LanguageContinue : 
On Error GoTo 0 

' DEBUG: uncomment the next line to force language selection 
• g_LANGOFFS£T = 2000 

Label4 .Caption = "v" + Format $ (App .Ma j or) + tt . " + Format $ <App. Minor, "00") 

Labell .Caption = 

Label 2 .Caption = RES {103 ) 

Commandl .Caption = RES (104) 

Me. Caption = RES (102) 

g_Maint Password - GetSettingC'PCPWOra", "Keys", "MaintKey", "") 
g^Maint Pas sword - StrDecode (g_Maint Password, 14755) 

g_BackupFolder = GetSetting ( "PCPWOra" , "Files", "Backup", " 11 ) 

cmdLine - Command$ 
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If cmdLine <> "/SCHEDULE" Then 

• check to see if the database is up or down 

rc = ExecuteSecureBatchFile(App.Path & "\checkdb.brt" , True) 

fh » FreeFile 

g_dbopen - True 

On Error GoTo NoOutFile 

Open App.Path & "\checkdb.out" For Input As #fh 
Do Until EOF(fh) 

Line Input #fh, tbuf$ 

If UCase(Left(tbuf$, 4)) * "ORA-" Then 
g_dbopen = False 

End If 

Loop 

Close #fh 

On Error GoTo 0 

If g_dbopen Then 

Picturel . Picture = LoadPicture (App . Path & "\images\dbup.bmp") 

Else 

Picturel. Picture = LoadPicture (App. Path & "\images\dbdown.bmp") 
End If 

End If 



test code to set the command line parameter 
comment the following line before building 



• cmdLine =* "/MSG: This is a test" 

g_user = False 

If cmdLine - "" Then 

g_user = True 

frmGet Command. Show vbModal 
End If 

g_MaintPassword = GetSetting ( "PCPWOra" , "Keys", "MaintKey", "") 
g_MaintPassword = StrDecode (g_MaintPassword, 14755) 

g_szMaint = GetSetting ( "PCPWOra" , "Files", "Maintenance", "") 

startTime ■ Now 

rc = OpenLogFile {App.Path & "\b runner", 0) 

rc = WriteLogFile(RES(203) ) 

rc = WriteLogFile(RES(204) 4 cmdLine) 

Select Case UCase$ (cmdLine) 
Case "/BACKUP" 

Label 1. Caption = RES (108) 
Case "/START" 

Labell. Caption = RES (109) 
Case "/STOP" 

Labell. Caption = RES (110) 
Case "/SCHEDULE" 

Labell. Caption * RES (111) 
End Select 

Refresh 

Timer2 .Enabled = True 

Exit Sub 

NoOutFile: 
Refresh 
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MsgBox RES(12S), vbOKOnly + vbCritical, RESU02) 
End 

End Sub 

Private Function DoBackupO 

Dim fhErr As Integer 

Dim fh As Integer 

Dim bytesneeded As Double 

Dim bytesavailable As Double 



1 if the database is down, don't let the backup take place 
If g_dbopen • False Then 

rc = WriteLogFile(RES(205) ) 

rc = CloseLogFile () 

End 
End If 

• if copy or compress method, make sure there's enough disk space 

• before attempting a backup 
fh = FreeFile 

Open App.Path & "\size.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\sqlplus pcpaysys/" 4 g_Maint Pass word & " @" & App.Path & 
"\size.sql " & App.Path 
Close #fh 

rc = RemoveFile (App.Path & "\sizedone . out " ) 

rc = ExecuteSecureBatchFile (App . Path & "\size.bat", False) 

• make sure the prior step is complete before continuing 
Do Until Dir$ (App. Path & "\sizedone . out " , vbNormal) <> "" 

DoEvents 

Loop 

rc = RemoveFile (App .Path U "\size.bat") 
fh * FreeFile 

Open App.Path & "\size.out" For Input As fcfh 
Line Input #fh, tempbuf$ 
bytesneeded = Val ( tempbuf $) 
Close #fh 

» make sure the backup folder exists 
g_Backup Folder = Trim (g_BackupFolder) 
If g_Backup Folder <> Then 

If Dir$ (g_BackupFolder, vbDirectory) = Then 
MkDir g_Back up Folder 

End If 

bytesavailable * GetDiskFreeSpaceLarge (Mid$ (g_BackupFolder , 1, 1) & ":\") 
If bytesneeded > bytesavailable Then 

rc =* WriteLogFile(RES (206) & Mid$ (g_BackupFolder , 1, 1) & " :\" & RES (207) ) 

' debug code starts here 

rc « WriteLogFile ( "Bytes needed: " & bytesneeded & " Bytes Available on n & 
Mid$ (g_BackupFolder, 1, 1) & ":\ " & bytesavailable) 
■ debug code ends here 

rc = WriteNoteOfTheDay(RES (208) 5c Mid$ (g_BackupFolder , 1, 1) & ":\ rt & RES (130)) 
rc = CloseLogFile 0 
End 
End If 
End If 

rc * WriteLogFile (RES (209) ) 



' before performing the backup, run the perf.sql script that resides in the 
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\oradata\pcpw\admin folder. This will generate a perf.out report. Open the report 
and add it to the perfsumnt.out file. 



rc « WriteLogFile(RES(210) } 
GetPerfStats 

rc « WriteLogFile (RES (211)) 

rc = ExecuteSecureBatchFile(App.Path & "\backup.brt", False) 

rc = WriteLogFile (RES (212)) 

If g_user Then 

MsgBox RESU12), vbOKOnly + vblnformation, RES{102) 
End If 



* TODO: check Oracle Alert log for messages 



startPoint = Val (GetSetting ( "PCPWOra", "ALERT Log", "LastOf f set" , "1")) 

If Dir$(g_szMaint & "\ . . \oraerr . 1st" , vbNormal) ~ Then 

GoTo MissingControlFile 
End If 

fhErr = FreeFile 

Open g^szMaint & " \ . . \oraerr . 1st " For Input As #fhErr 
fhln = FreeFile 

rc * WriteLogFile (RES (213 ) & startPoint & RES (214)) 

Open g_szMaint & "\ . . \ . . \log\pcpwALRT . log" For Input As #fhln 

Seek #fhln, startPoint 

Do Until EOF (fhln) 

Line Input #fhln, tbuf$ 

Seek #fh£rr, 1 

Line Input #fhErr, oraErr$ 

Do Until EOF (fhErr) 

If InStr (UCase$ (tbuf$) , UCase$ (Trim (oraErr$) ) ) Then 
rc = WriteLogFile (RES (13 7) & oraErr$ & RES (13 8) ) 
rc = WriteNoteOf TheDay (RES (139) & oraErr$ & RES (140)) 
End If 

Line Input fcfhErr, oraErr$ 

Loop 
Loop 

Close #fhln 
Close #fhErr 

lAlertLogLength * FileLen <g_szMaint & " \ . . \ . . \log\pcpwALRT . log" ) 
SaveSetting "PCPWOra", "ALERT Log", "LastOf f set" , Format$ ( lAlertLogLength) 
GoTo AlertLogChecked 

MissingControlFile: 

rc = WriteLogFile (RES (141) ) 

rc = WriteNoteOf TheDay (RES (142) ) 

AlertLogChecked : 

rc =s CloseLogFile 0 
End 

End Function 

Private Function DoStartDbO 
rc = WriteLogFile (RES (143) ) 
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lAlertLogLength * FileLen (App. Path & "\..\log\pcpwALRT.log") 



rc * ExecuteSecureBatchFile (App . Path & "\startdb.brt" , False) 



' Make sure the database is up in normal mode 



fhCheck » FreeFile 

Open App. Path & n \ . . \log\pcpwALRT. log" For Input As #fhCheck 
Seek ttfhCheck, lAlertLogLength 
bClosed » False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If UCase$(Trim(buf$) } = UCase$ ("Completed: alter database open") Then 

bClosed a True 
End If 

If UCase$ (Trim(buf$) ) = UCase$ ( "Completed: alter database pay4win open") Then 

bClosed - True 
End If 

If UCase${Trim(buf$) ) * UCase$ ( "Completed: alter database " & Chr$(34) & 
"pay4win" & Chr$(34) & N open") Then 
bClosed = True 
End If 
DoEvents 

Loop 
Close #fhCheck 

If bClosed a False Then 



' note it in the HWB . LOG and the N0TE_OF_THE_DAY 
' table, then get out. 



rc = WriteLogFile(RES(144) ) 
If g_user Then 

Label3 .FontSi2e = 9 

Label3. Caption = RES(llS) & Chr$(10) & RES (US) 
Label3. Visible = True 
Commandl .Visible - True 

Me. Refresh t 
End If 

Else 

If g_user Then 

Picturel .Picture = LoadPicture (App . Path & 11 \ image s \ dbup .bmp" ) 
Label3 . FontSize = 12 
Label3 .Caption = RES (113) 
Label3 .Visible = True 
Commandl .Visible = True 
Me. Refresh 
End If 
End If 

rc = WriteLogFile(RES(145) ) 

rc = CloseLogFile () 
If Not g__user Then 

End 
End If 

End Function 

Private Function DoStopDb (Runs tats As Boolean) 

If RunStats Then 

rc = WriteLogFile(RES(146) ) 



• before performing the backup, run the perf.sql script that resides in the 

• \oradata\pcpw\admin folder. This will generate a perf.out report. Open the 
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in 



report 

' and add it to the perfsumm.out file. 



GetPerfStats 

rc * WriteLogFile(R£S(147) ) 
End If 



Before shutting down, get the length of the alert log 
so I don't have to read the whole thing to get to the 
end 



lAlertLogLength = FileLen (App. Path & "\..\log\pcpwALRT.log") 
rc = WriteLogFile(RES(148) ) 

rc = ExecuteSecureBatchFile (App. Path + "\stopdb .brt False) 



• now that the database is shutdown, make sure the shutdown 

• was successful and without errors 



fhCheck = FreeFile 

Open App. Path & "\ . . \log\pcpwALRT. log" For Input As #fhCheck 
Seek ttfhCheck, lAlertLogLength 
bClosed = False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If UCase$(Trim(Mid$(buf$, 1, 25))) = UCase$ < "Completed: ALTER DATABASE") Then 

bClosed = True 
End If 
DoEvents 

Loop 
Close #fhCheck 

If bClosed = False Then 



' this means the database was not shutdown properly 
' note it in the HWB.LOG and the N0TE_OF_THE_DAY 
1 table, then get out. 



rc = WriteLogFile(RES(149) ) 
If g_user Then 

Label 3 .Fonts ize = 9 

Label3 .Caption = RES (114) & Chr${lO) & RES (115) 
Label3 .Visible = True 
Commandl .Visible - True 
Me .Refresh 
End If 

Else 

rc = WriteLogFile(RES(150) ) 
If g_user Then 

Picturel. Picture = LoadPicture (App . Path & "\images\dbdown.bmp" 
Label3 . FontSize - 12 
Label3. Caption = RES (117) 
Label3 .Visible = True 
Commandl .Visible = True 
Me. Refresh 
End If 
End If 

rc = CloseLogFile ( ) 
If Not g_user Then 

End 
End If 

End Function 
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Private Function DoRestartO 



lAlertLogLength * FileLen (App. Path & "\ . . \log\pcpwALRT. log") 
rc =. WriteLogFile(RES(151)) 

rc = ExecuteSecureBatchFile {App. Path + " \ restart .brt" , False) 
rc = WriteLogFile(R£S(152)) 



Make sure the database is up in normal mode 



fhCheck « FreeFile 

Open App. Path & "\ . . \log\pcpwALRT . log" For Input As #fhCheck 
Seek #fhCheck, lAlertLogLength 
bClosed ■ False 
Do Until BOF(fhCheck) 

Line Input #fhCheck, buf$ 

If UCase$(Trim(buf$) ) * CJCase$ ( "Completed : alter database open") Then 

bClosed = True 
End If 

If UCase$ (Trim(buf$) ) = UCase$ { "Completed: alter database pay4win open") Then 

bClosed = True 
End If 

If UCase$(Trim(buf$) ) = UCase$ ( "Completed : alter database " & Chr$(34) & 
"pay4win" & Chr$(34) & " open") Then 
bClosed = True 
End If 
DoEvents 

Loop 
Close #fhCheck 

If bClosed = False Then 



note it in the HWB.LOG and the NOTE_OF_THE__DAY 
table, then get out. 



rc = WriteLogFile(RES(153) ) 
If g_user Then 

Label3 .FontSize = 9 

Label3 .Caption = RES (116) & Chr$(10) & RES (115) 
Label3 .Visible = True 
Commandl. Visible = True 
Me .Refresh 
End If 

Else 

If g_user Then 

Picturel .Picture = LoadPicture (App . Path & "\images\dbup.bmp") 
Label3 .FontSize = 12 
Label3. Caption = RES (113) 
Label3. Visible = True 
Commandl .Visible = True 
Me. Refresh 
End If 
End If 

rc = WriteLogFile (RES (154) ) 

rc = CloseLogFile () 
If Not g_user Then 

End 
End If 

End Function 
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Private Function DoScheduleO 



rc = WriteLogFile(RES(155) ) 

If Dir$(App.Path & "\schdback.cmd", vbNormal) = Then 
rc = WriteLogFile(RES(156) ) 
rc = WriteLogFile(RES(157) ) 

If g user Then BP( , Mfn , 

MsgBox RES (118). vbOKOnly + vblnf ormation, RESU02) 

End If 

rc = CloseLogFile 0 
End 

El36 ' check to see if the scheduler already contains an entry for 
• BRUNNER to backup the database 
bProcess = True 

ExecDOSCmd ("and /c net start schedule") 
bProcess = False 
bProcess = True 

ExecDOSCmd ("and /c at > c:\temp\at.txt") 
bProcess = False 

fhln = FreeFile 

On Error GoTo NoAtFile 

Open "c:\temp\at.txt" For Input As #fhln 

found = False 

Do While Not EOF (fhln) 

Line Input #fhln, buf 

offset = InStr{buf, "BRUNNER . EXE /BACKUP" ) 
If offset > 0 Then 

found = True 
End If 

Loop 

Close #fhln 
GoTo AtFileOkay 

NoAtFile: 

rc = WriteLogFile(RES(158) ) 

On Error GoTo 0 
GoTo ExitPoint 

AtFileOkay: 

If found = False Then 

• now execute the temporary batch file 

bProcess = True , 
rc - ExecuteSecureBatchFile(A PP .Path + "\schdback.cmd , False 

bProcess = False 

rc = WriteLogFile(RES(159) ) 

Else 

rc = WriteLogFile(RES(i60) ) 
End If 
End If 



ExitPoint : 

If Dir$ ("c:\temp\at.txt", vbNormal) <> n " 

Kill "c:\temp\at.txt" 
End If 

On Error GoTo 0 

If dirCreated Then 

RmDir "C:\temp" 
End If 

If g_user Then 
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MsgBox RES(119), vbOKOnly + vblnf ormation, RES(102) 
End If 

rc = CloseLogFile () 
End 

End Function 

Private Function DoRestrictO 
rc a WriteLogFile(RES(l6l) ) 

rc a ExecuteSecureBatchFile (App. Path + "\restrict .brt" , False) 
rc = WriteLogFile (RES (162) ) 



Make sure the database is up in normal mode 



fhCheck a FreeFile 

Open App.Path & "\ . . \log\pcpwALRT. log" For Input As #fhCheck 
Seek #fhCheck, lAlertLogLength 
bClosed a False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If UCase$ (Trim (buf $) ) = UCase$ { "Completed : alter database open") Then 

bClosed = True 
End If 

If UCase$ (Trim (buf $) ) - VCase$ ( "Completed : alter database pay4win open") Then 

bClosed = True 
End If 

If UCase$ (Trim (buf $) ) = UCase$ ( "Completed : alter database " & Chr${34) & 
M pay4win" & Chr$(3 4) & " open") Then 
bClosed a True 
End If 
DoEvents 

Loop 
Close #fhCheck 

If bClosed = False Then 



note it in the HWB, LOG and the N0TE_OF_THE_DAY 
table, then get out. 



rc - WriteLogFile (RES (153 ) ) 
If g_user Then 

Label3 . FontSize = 9 

Label3 .Caption = RESU16) & Chr$(10) & RES(llS) 
Label3 .Visible = True 
Commandl .Visible - True 
Me .Refresh 
End If 

Else 

If g_user Then 

Picturel . Picture = LoadPicture (App . Path & "\images\dbup.bmp") 
Label3 .FontSize = 12 
Label3 .Caption = RES (113 } 
Label3 .Visible = True 
Commandl .Visible = True 
Me .Refresh 
End If 
End If 

rc = WriteLogFile (RES (154) ) 

rc = CloseLogFile () 
If Not g_user Then 
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End 
End If 



End Function 



Private Sub Timer2_Timer ( ) 

Timer2 .Enabled = False 
Select Case UCase$ (cmdLine) 
Case "/BACKUP " 

Call DoBackup 
Case "/RESTART" 

Call DoRestart 
Case "/START" 

Call DoStartDb 
Case "/STOP" 

Call DoStopDb (False) 
Case "/BACKUPSTOP" 

Call DoStopDb (True) 
Case "/SCHEDULE* 

Call DoSchedule 
Case "/RESTRICT" 

Call DoRestrict 
End Select 

End Sub 

Public Function RemoveFile (szFile As String) As Boolean 

On Error GoTo CannotRemoveFile 

If Dir$(szFile, vbNormal) <> "" Then 

Kill szFile 
End If 

On Error GoTo 0 
RemoveFile - True 
Exit Function 

CannotRemoveFile : 
On Error GoTo 0 
RemoveFile = False 
Exit Function 

End Function 

Public Function GetPerf Stats ( ) As Boolean 

Dim fh As Integer 
Dim tl As String 
Dim t2 As String 

tl = GetSettingCPCPWOra" , "Keys", "MaintKey", " ") 
t2 = StrDecode(tl f 14755) 

fh = FreeFile 

Open App.Path & "\maint\doperf . sql" For Output As #fh 
Print #fh, "connect pcpaysys/" & t2 & ";" 
Print #fh, "execute updperf stat ; " 
Print #fh, "exit;" 
Close #fh 

fh = FreeFile 

Open App.Path & "\maint\doperf.bat" For Output As #fh 

Print #fh, g_szOracleHome & "\svrmgr23 ®" & App.Path & " \maint\doperf . sql " 
Close #fh 

ExecDOSCmd (App.Path fii "\maint\doperf.bat") 
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rc = RemoveFile(App.Path & M \maint\doperf .bat • ) 

rc = Remove File (App. Path & "\maint\doperf . sql ) 
GetPerfStats = True 

End Function 



Private Function Cleanup () As Boolean 

On Error Resume Next 
Kill "c:\temp\tmp*.cmd" 
On Error GoTo 0 

End Function 



VERSION 5.00 
Begin VB.Form f rmGetComraand 



Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
LinkTopic 
ScaleHeight 
ScaleWidth 
StartUpPosition 



"ADP PC/Payroll Batch Runner" 

3885 

60 

345 

5805 

"Form2 " 

3885 

5805 

3 'Windows Default 



Begin VB .CommandButton Command2 
Caption « "Close" 

Height = 405 

Left = 4590 

Tablndex = 4 

Top = 3270 

Width = 990 

End 

Begin VB. CommandButton Commandl 
Caption = "&Run" 

Height = 4 05 

Left = 3510 

Tablndex = 3 

Top = 3255 

Width = 990 

End 

Begin VB.ComboBox Combo 1 



Height 

ItemData 

Left 

List 

Style 

Tablndex 

Top 

Width 



315 

"f rmGet Command . f rx" : 0000 
2040 

" f rmGetCommand . f rx" : 0002 

2 'Dropdown List 

2 

435 
3615 



End 

Begin VB . PictureBox Picturel 



BorderStyle 
BeginProper •■/ Font 

Name 

Size 

Charset 

weight 

Underline 

Italic 

Strikethrough 
EndProperty 
Height 
Left 
Picture 



•None 

"Arial 

8.25 

0 

400 
0 



False 
False 
False 



3180 
105 

" f rmGetCommand . f rx" 



;0004 
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ScaleHeight 
ScaleWidth = 
Tablndex = 
Top 
Width 
End 

Begin VB. Label Label4 
Caption = 
Height 
Left 

Tablndex 

Top - 
Width 

End 

Begin VB. Label Label2 
Caption = 
BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strikethrough 
EndProperty 
Height 
Left 

Tablndex 

Top 

Width 

End 



aiao 

1830 
0 

120 
1830 



»Label4 r 

180 

135 

5 

3390 
1395 



"Select process" 



"Arial" 

9.75 

0 

700 
0 



0 
0 

300 

2025 

1 

135 
3630 



' False 
• False 
1 False 



End 

Attribute VB__Name = " f rmGetCommand" 
Attribute VBJSlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Commandite lick ( ) 

Select Case Combol . List (Combol . Listlndex) 
Case RES (121) 

11 /BACKUP" 



cmdLine = 
Case RES (120) 

cmdLine = 
Case RES (123) 

cmdLine = 
Case RES (122) 

cmdLine = 
Case RES (124) 

cmdLine = 
End Select 
Unload Me 



" /STOP" 
"/START" 
"/SCHEDULE" 
"/RESTRICT" 



End Sub 

Private Sub Command2_Click ( ) 

End 
End Sub 

Private Sub Form_Load() 
Dim i As Integer 

i = SetWindowPos(Me.hWnd, HWNDJTOPMOST, _ 

Me. Left \ Screen. TwipsPerPixelX, Me. Top \ Screen .TvipsPerPixelY, 



Me. Width \ Screen. TwipsPerPixelX, Me. Height \ Screen. TwipsPerPixelY, 0) 

If g_dbopen Then 

Picturel. Picture = LoadPicture (App. Path & "\ images \dbup.bmp") 

Else 

Picturel. Picture = LoadPicture (App. Path & M \ image s\dbdown.bmp ,t ) 
End If 

Me. Left * (Screen, Width - Me.ScaleWidth) / 2 
Me. Top = (Screen. Height - Me .ScaleHeight) / 2 
Me. Caption » RES (102) 
Label2. Caption * RES (105) 
Commandl . Caption = RES (106) 
Command2 .Caption ■ RES (104) 

Labe 14 .Caption « "v" ♦ Format$ (App .Major) + + Format$ (App .Minor, "00") 

If g_dbopen Then 

Combol.Addltem RES (120) 
Combol.Addltem RES (121) 
Combol.Addltem RES (122) 

Else 

Combol.Addltem RES (123) 
Combol.Addltem RES (124) 
Combol.Addltem RES (12 2) 
End If 

Combol . Listlndex = 0 



End Sub 



VERSION 5.00 

Begin VB.Form frmMessage 



"ADP PC/Payroll Batch Runner" 
3705 
60 
345 
5805 
"Forml" 
3705 
5805 

3 'Windows Default 



Caption & 

ClientHeight 

ClientLeft » 

ClientTop 

ClientWidth 

LinkTopic 

ScaleHeight 

ScaleWidth 

c tartUpPosition = 

Begin VB . CommandButton Command2 
Caption * "Close" 

Height = 405 

Left = 4620 

Tablndex = 3 

Top = 3060 

Width » 990 

End 

Begin VB. PictureBox Picturel 
Borders tyle * 0 'None 
BeginProperty Font 

Name =■ "Arial" 

Size = 8.25 

Charset ■ 0 

Weight - 4 00 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 



Height 
Left 

Picture = 
ScaleHeight 
ScaleWidth 
Tablndex 

Top = 
Width 

End 

Begin VB. Label Label4 
Caption = 
Height 
Left 

Tablndex = 
Top = 
Width 

End 

Begin VB. Label Label 2 
Caption * 
BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strikethrough 
EndProperty 
Height 
Left 

Tablndex 

Top => 
Width 
End 

Begin VB. Label Labell 
Caption - 
Height 



3180 
120 

" f rmMessage . f rx" : 0000 

3180 

1830 

0 

75 

1830 



"Label4" 

180 

120 

4 

3345 
1395 



"Message : v 

"Arial' 

9.75 

0 

700 
0 



0 
0 

300 

2115 

2 

75 

3630 



"Labell" 
1800 



False 
False 
False 
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Left = 2115 

Tablndex = 1 

Top = 360 

Width = 3510 

End 

End 

Attribute VB_Name = "frmMessage" 
Attribute VB_GlobalNameSpace - False 
Attribute VB_Creatable a False 
Attribute VB_PredeclaredId ■ True 
Atw-ibute VB_Exposed = False 
Dim startTime As Date 
Dim runningProcess As String 
Dim myTaskld As Long 

Private Sub Command2_Click{) 

End 
End Sub 

Private Sub Fonn_Load() 
Dim i As Integer 

Me. Left « (Screen. Width - Me . ScaleWidth) / 2 
Me. Top = {Screen. Height - Me . ScaleHeight) / 2 

i * SetWindowPos(Me.hWnd, HWNDJTOPMOST , 

Me. Left \ Screen. TwipsPerPixelX, Me. Top \ Screen . TwipsPerPixelY, 

Me. Width \ Screen. TwipsPerPixelX, Me. Height \ Screen . TwipsPerPixelY, 0) 

Me. Caption * RES (102) 
Label2. Caption * RES (107) 
Command2 .Caption = RES (104) 

'If g_dbopen Then 

' Picturel . Picture * LoadPicture (App . Path U "\images\dbup.bmp") 
•Else 

• Picturel. Picture = LoadPicture (App . Path & "\images\dbdown.bmp") 
•End If 

Label4. Caption = "V + Format $ (App .Major ) + + Format $ (App .Minor, "00") 
Labell. Caption = Mid$ (cmdLine, 6) 
End Sub 



Attribute VB_Name = "Module2" 
Private Type STARTUP INFO 
cb As Long 
lpReserved As String 
IpDesktop As String 
lpTitle As String 
dwX As Long 
dwY As Long 
dwXSize As Long 
dwYSize As Long 
dwXCount Chars As Long 
dwYCountChars As Long 
dwFillAt tribute As Long 
dwFlags As Long 
wShowWindow As Integer 
cbReservetf2 As Integer 
lpReserved2 As Long 
hStdlnput As Long 
hStdOutput As Long 
hStdError As Long 
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End Type 



Private Type PROCESS_INFORMATION 

hProcess As Long 

hThread As Long 

dwProcessID As Long 

dwThreadID As Long 
End Type 

Private Declare Function WaitForSingleObject Lib «kernel32» (ByVal . 
hHandle As Long, ByVal dwMilliseconds As Long) As Long 

Private Declare Function CreateProcessA Lib »kernel32" (ByVal _ 

Ip^plicationName As Long, ByVal IpCcmmandLine As string. ByVal 
IpProcessAttributes As Long. ByVal IpThreadAttributes As Long, _ 
ByVal binheritHandles As Long, ByVal dwCreationFlags As Long, _ 
ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ 
IpStartupInfo As STARTUP I NFO , lpProcessInf ormation As _ 
PR0CESS_INF0RMATION) As Long 

Private Declare Function CloseHandle Lib »kernel32" (ByVal _ 
hObject As Long) As Long 

Private Const NORMAL_PRIORITY_CLASS = &H20& 

Private Const INFINITE = -1& 

Public Const SWJ4IDE = 0 

Public Const SW_MINIMIZE = 6 

Public Const STARTFJJSESHOWWINDOW = &H1 



Public Sub ExecDOSCmd(cmdLine$) 

Dim proc As PROCESS_INFORMATION 
Dim start As STARTUP INFO 

• Initialize the STARTUP INFO structure: 
start. cb = Len (start) 

start. wShowWindow = SWJilDE 

start. dwFlags = STARTF_USESH0WWIND0W 

• Start the shelled application: 

ret& = CreateProcessA(0&, cmdLine$, 0&, 0&, 1&, _ 
NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) 

• Wait for the shelled application to finish: 

ret& - WaitForSingleObject (proc. hProcess, INFINITE) 
ret& = CloseHandle (proc. hProcess) 
End Sub 



Attribute VB Name « "Modulel" 

5S£c Declare Function SetWindowPos Lib "user32« (ByVal hwnd As Long 
ByVal hWndlnsertAfter As Integer, _ 
ByVal X As integer, ByVal Y As Integer, _ 
ByVal cx As Integer, ByVal cy As Integer, _ 
ByVal wFlags As Integer) As Integer 

Global Const SWP_NOMOVE = 2 
Global Const SWP_NOSIZE = 1 

Global Const WndFlags =* SWP_NOMOVE Or SWPJJOSIZE 
Global Const HWNDJTOPMOST = -1 
Global Const HWND_NOTOPMOST = -2 



Global bProcess As Boolean 
Global cmdLine As String 
Global g_szOracleHome As String 
Global g_szMaint As String 
Global gj4aintPassword As String 
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Global g_dbopen As Boolean 
Global g_LANGUAGE As String 
Global g_LANGOFFSET As Integer 

Public Function CancelProcess {) 
End 

End Function 

Public Function WriteNoteOfTheDay {szMsg As String) As Boolean 
Dim fh As Integer 
fh = FreeFile 

Open App.Path & "\maint\notd. sql" For Output As #fh 
Print #fh, "connect pcpaysys/%%PCPAYSYS%%; ■ 

Print #fh, "execute p_modify__postnote ( ' " & szMsg & " ' , • ADD ' ) ; " 
Print #fh, "exit;" 
Close #fh 

rc = ExecuteSecureBatchFile (App. Path & "\maint\notd. sql " , True) 
rc * RemoveFile (App.Path rt \maint\notd. sql" ) 
WriteNoteOfTheDay = True 
End Function 

Public Function ExecuteSecureBatchFile (szFile As String, bAsSQL As Boolean) As Boolean 



This function executes a batch file that contains passwords 
the batch file is opened, and copied to a temp location 
with %passwordV substitution so that the passwords are not 
exposed in the batch files that are persistant on the server 



Dim fh As Integer 
Dim fh2 As Integer 
Dim fh3 As Integer 
Dim tmpname As String 

i * 0 

tmpname « "c : \temp\tmp" & i & "$$$'* 
Do Until Dir$ (tmpname & ".cmd", vbNormal) = " rt 
i = i + 1 

tmpname = "c : \temp\tmp" & i & "$$$" 

Loop 

1 create temporary batch file 

If Dir$ Cc: \temp M , vbDirectory) = Then 

MkDir ( "c:\temp") 

dirCreated « True 

Else 

dirCreated = False 
End If 

fh = FreeFile 

Open szFile For Input As #fh 
fh2 = FreeFile 
If b As SQL Then 

Open tmpname & M .sql rt For Output As #fh2 

fh3 ■ FreeFile 

Open tmpname & Vcmd" For Output As #fh3 

Else 

Open tmpname Sc ".cmd" For Output As #fh2 
End If 

Do While Not EOF(fh) 
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Line Input #fh, buf 



' look for password placeholders 
offset = InStrfbuf, n*PCPAYSYS%% M ) 
If offset > 0 Then 

pw$ = GetSettingCPCPWOra", "Keys", "PCPAYSYS", ww ) 

pw$ = StrDecode {pw$, 14 755) 

buf * Mid$(buf, 1, offset - 1) & pw$ & Mid${buf, offset + 12) 
End If 

offset = InStr(buf, "%¥MIGRATE%%") 
If offset > 0 Then 

pw$ = GetSettingCPCPWOra", "Keys", "MIGRATE" , **) 

pw$ - StrDecode (pw$, 14755) 

buf = Mid$<buf, 1, offset - 1) & pw$ & Mid$(buf, offset + 11) 
End If 

offset = InStr(buf, "%%MAINTK£Y%%") 
If offset > 0 Then 

pw$ = GetSettingCPCPWOra", "Keys", "MAINTKEY" , "") 

pw$ = StrDecode (pw$, 14755) 

buf = Mid$(buf ( 1, offset - 1) & pw$ & Mid$(buf, offset + 12) 
End If 

offset = InStr(buf, "%%SUPEROP%%" ) 
If offset > 0 Then 

pw$ * GetSettingCPCPWOra", "Keys", "SUPEROP", "") 

pw$ a StrDecode (pw$, 14 755) 

buf = Mid${buf, 1 ( offset * 1) & pw$ 4 Mid$(buf, offset + 11) 
End If 

offset * InStr(buf, "%%REPORTS*V") 
If offset > 0 Then 

pw$ = GetSettingCPCPWOra", "Keys", "REPORTS" , ""} 

pw$ = StrDecode (pw$, 14755) 

buf * Mid$(buf, 1, offset - 1) i pw$ & Mid$(buf, offset + 11) 
End If 

offset = InStr(buf, "%%PASSWORDV%") 
If offset > 0 Then 

pw$ = GetSettingCPCPWOra", "Keys", "Default", "") 

pw$ = StrDecode (pw$, 14755) 

buf = Mid$(buf, 1, offset - 1) & pw$ & Mid$(buf, offset + 12) 
End If 

offset = InStr<buf, »'%%INTERNAL%%") 
If offset > 0 Then 

pw$ * GetSettingCPCPWOra", "Keys", "INTERNAL", " M ) 

pw$ a StrDecode (pw$, 14 755) 

buf * Mid$(buf, 1, offset - 1) & pw$ & Mid$(buf, offset + 12) 
End If 

offset = InStr(buf, "%%SYS%V") 
If offset > 0 Then 

pw$ = GetSettingCPCPWOra", "Keys", "SYS" , "") 

pw$ = StrDecode (pw$, 14755) 

buf = Mid$(buf, 1, offset - 1) & pw$ & Mid$(buf, offset + 12) 
End If 

offset = InStr(buf, "\%SYSTEM%%" ) 
If offset > 0 Then 

pw$ * GetSettingCPCPWOra", "Keys", "SYSTEM" , "") 

pw$ = StrDecode (pw$, 14755) 

buf * Mid$(buf, 1, offset - 1) & pw v & Mid$(buf, offset + 12} 
End If 
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Print #fh2, buf 



Loop 

Close #fh2 
Close #fh 

* now execute the temporary batch file 
If bAsSQL Then 

Print #fh3, g_szOracleHome & "\SVRMGR23 ®" & tmpname & ".SQL" 
Close #fh3 

ExecDOSCmd (tmpname & ".cmd") 
Kill tmpname & ".sql" 

Else 

ExecDOSCmd (tmpname & ".cmd") 
End If 

Kill tmpname & ".cmd" 
If dirCreated Then 
RmDir "c:\temp" 
End If 

ExecuteSecureBatchFile = True 
End Function 

Public Function RES{resID As Integer) As String 

RES s LoadResString (g_LANGOFFSET + resID) 
End Function 

Public Function GetDiskFreeSpaceLarge (DriveLetter As String) As Double 

Dim hdb As Integer 
Dim bf As Double 
Dim buf As String 
Dim buf2 As String 
Dim fh As Integer 

fh = FreeFile 

On Error GoTo CantWrite 

Open DriveLetter + "test.txt" For Output As #fh 
On Error GoTo 0 
Print #fh, "Testing" 
Close #fh 



• execute both command.com and cmd.com. If running on Win95 

• the command.com will work, and cmd.com will fail. On WinNT4.0 

• both will work, but the correct output of cmd.com will overwrite 

• the incorrect output of command.com. This way the end result 

• will be correct regardless of OS... 



ExecDOSCmd ("command.com /c dir " + DriveLetter + "test.txt > c : \dbsizer . 1st" 
ExecDOSCmd ("cmd /c dir " + DriveLetter + "test.txt > c:\dbsizer.lst") 
hdb = FreeFile 

Open "c:\dbsizer.lst" For Input As #hdb 
Do Until EOF (hdb) 

Line Input #hdb, buf 

idx = InStr(UCase$(buf) , UCase$ (RES (215 } ) ) 
If idx > 0 Then 

buf =* Left$(buf, idx - 2) 

For i% s Len(buf) To 1 Step -1 

If Mid$(buf ( i%, 1) = - »« Then 
buf = Mid$(buf, i% + 1) 
Exit For 
End If 
Next i% 



29 

10005.1006 



54 



End If 

Loop 

Close #hdb 

rc =» RemoveFile ("c:\dbsizer.lst") 

rc = RemoveFile (DriveLetter & rt test . txt " ) 

buf2 = 

For i% s i To Len(buf) 

thischar Mid$(buf, i%, 1) 

If thischar <> " " And thischar <> RES (216) Then 

buf2 = buf2 + thischar 
End If 
Next i% 

GetDiskFreeSpaceLarge - Val(buf2) 
Exit Function 

CantWrite : 

On Error GoTo 0 
GetDiskFreeSpaceLarge - 0 ■ 

End Function 

Public Function RemoveFile {szFile As String) As Boolean 

On Error GoTo Cannot Remove File 

If Dir$(szFile, vbNormal) <> " " Then 

Kill szFile 
End If 

On Error GoTo 0 
RemoveFile = True 
Exit Function 

CannotRemoveFile : 
On Error GoTo 0 
RemoveFile = False 
Exit Function 

End Function 

Function StrEncode(s As String, key As Long) As String 

•Written by Gary Ardell . 

'free from all copyright restrictions 

Dim N As Long, i As Long, ss As String 

Dim kl As Long, k2 As Long, k3 As Long, k4 As Long, t As Long 

Dim salt As Boolean 

Static saltvalue As String * 4 

salt = False 

If salt Then 

For i = 1 To 4 

t = 100 * (1 + Asc (Mid (saltvalue, i, 1))) * RndO * (Timer + 1) 
Mid (saltvalue, i, 1) = Chr(t Mod 256) 

Next 

s * Mid (saltvalue, 1, 2) & s St Mid (saltvalue , 3, 2) 
End If 

N = Len(s) 
ss - Space (N) 
ReDim sn(N) As Long 

kl = 11 + (key Mod 233) : k2 = 7 + (key Mod 239) 
k3 = 5 + (key Mod 241) : k4 = 3 + (key Mod 251) 
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For i = 1 To N: sn(i) = Asc(Mid(s, i, 1) ) : Next i 

, v /• n vor f fVi * sn(i - D) M° d 256): Next 

For i = 2 To M : sn<i> = and) Xor snd - 1) Xor (kl sn(i » + ^ ^ ^ 

For i = N - 1 To X Step -X: snU) = sn(x> Xor sn J ♦ » » r ( Mod 25S; Next 

For i - 3 To N: sn(i, = .nd) Xor sn(x - 2) Xor k3 snU # ^ + ^ ( ^ ^ ^ 

For i = N - 2 To 1 Step -1: sn(i) = snd) xor snu + 

For i = 1 To N: Mid(ss, i, D - Chrlsn(i)): Next i 



StrEncode = ss 

saltvalue = Mid(ss, Len(ss) / 2, 4) 



End Function 

Function StrDecode (s As String, key As Long) As String 

•Written by Gary Ardell. 

•free from all copyright restrictions 

Dim N As Long, i As Long, ss As String 

Dim kl As Long, k2 As Long, k3 As Long, k4 As Long 

Dim salt As Boolean 



salt = False 



N = Len(s) 
ss = Space (N) 
ReDim sn(N) As Long 

kl - 11 + (key Mod 233) : k2 = 7 ♦ (key Mod 239) 
JO = 5 + (key Mod 241) : k4 = 3 + (key Mod 251) 

For i = 1 To N: sn(i) = Asc<Mid(s, i ( 1) ) : Next 



For i 
For i 
For i 
For i 



For i = X To N: Midtss, i. X) = Chr(sn(i) ) : Next i 

If salt Then StrDecode = Mid(ss. 3, Lenlss) - 4) Else StrDecode = ss 



End Function 
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Chapter 




hwb.exe 

Health & Well-Being utility 



Overview 



The hwb utility is an unattended database diagnostic and auto-maintenance utility 
used by the client to perform the following database procedures 

1 . check the database for tablespace fragmentation 

1 . check the tablespaces for available free space 

1 . check the hard drives for available free space 

1 . fix any problems that can be fixed automatically without 

risk 

There is no user intervention required during the execution of hwb. AH process 
messages and errors are written to a log file named hwb. log. The user is instructed to 
check this log each morning following a scheduled run of hwb. By default, hwb is 
scheduled to run once a week, on Sunday mornings at 11:00am. During the running 
of the Oracle sizing wizard (dbsizer) the user has the option to override this schedule. 

Hwb's dialog box displays all the steps that it will perform during it's run. As each step 
is completed, a check mark will appear to the left of the step to signify it's completion. 
When all steps are complete, hwb will terminate automatically. 
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Psedo-Code 



Following is pseudo-code for the hwb utility program. 

get the language setting from the NT Server registry 
center the dialog 

retrieve / decode and store Oracle database user ids and password from the registry 

display the status dialog box 

clear all the check marks next to each step 

open the log file and note the start date and time 

if not at least 1 MEG of free diskspace on the \admin folder drive for scripts 

write an error to the log file 

exit 
end if 

shutdown the database (immediate mode) 
restart the database in restricted mode 

' step 1 begins (analyze tables, gather information) 

coalesce all tablespaces 

run gencoal.sql which creates coalesce.sql 
run coalesce.sql 

build a list (no_fix.out) of tables with > 1 extent but are too high risk to fix 

generate no_fix.sql 

run no_fix.sql (creates no_fix.out) 
if no_fix.out contains table names 

write a message to the log file and tell the user which tables need manual fixing 
end if 

run dbjnfo.sql to generate report on database internals (dbjnfo.txt, not used but 
handy) 

analyze tables 

generate bld_anal.sql 

if we have not analyzed tables today (stored in the registry) 
run bld_anal.sql which generates analyze.sql 
run analyze.sql 

store date in the registry so we don't do this again today 

end if 

if xtra.sql exists in the \admin folder 

execute it (this allows us to implement one time procedures) 
end if 

build a list of all tables that can be fixed (fixjab.out) 
generate fix_tab.sql 

run fix Jab.sql, which generates a list of tables that hwb should fix 
display a check mark next to step 1 
1 step 1 complete 

* step 2 begins (check database performance) 

run perf.sql, generates perf.out which is a table of current performance 
for each line written to perf.out 

lookup the performance criteria in the file perf.tbl 

if found 
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compare database performance (perf.out) to error level (perf.tbl) 
if above error level 

write error to logfile 

else 

compare database performance (perf.out) to warning level 

(perf.tbl) 

if above warning level 

write warning to logfile 

end if 

end if 

end if 

get next line from perf.out file 

make sure there's at least 5 MEG on each hard drive used to store PCPW data 
if any drive does not have at least 5 MEG free 

write message to log file 
end if 

display a check mark next to step 2 
1 step 2 complete 

' step 3 fix low risk tables 

' each step is stringently checked for errors and fogged to the hwb.log file 
open the fix Jab. out file which list tables to fix 
for each line in the fixjab.out file 

check each available drive to find one with enough disk space to hold export file 

if not 

write error to logifile 

skip this table, get the next line from fix__tab.out 

end if 

generate DDL script to rebuild primary key(s) (gen_pk.sql) 
generate DDL script to rebuild foreign key(s) (gen Jk.sql) 
export the data 
drop the table 

import the data from the export file 

run gen_pk.sql to rebuild primary key(s) 

run gen_fk.sql to rebuild foreign key(s) 

cleanup and get ready for the next table 
get next line from fixjab.out 
display a check mark next to step 3 
' step 3 complete 

' step 4 rebuild indexes (if necessary) 

run fixjdx.sql which generates rbldjdx.sql 
run rbldjdx.sql to rebuild indexes if necessary 
display a check mark next to step 4 
' step 4 complete 

cleanup any command files or script files left behind 
note summary of warning and errors in the logfile (tally) 
note completion date and time in the logfile 
close the logfile 

shutdown the database (immediate mode) 
restart the database in normal mode 
exit 
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Command Line Parameters 



The following command line parameters are recognized by the hwb utility 
/DEBUG 

causes hwb to execute in debug mode. By default, hwb cleans up after itself deleting 
all temporary scripts and output files. When debugging, it is useful to look at these 
files so you can determine exactly what happened. CAUTION: this is extremely 
sensitive since SQL files and command files that contain the database password will 
be left on the hard drive in the Xadmin folder. Do not do this at a client site unless 
absolutely neccesary, then when complete, re-run the hwb utility WITHOUT the 
/debug flag to clean up the admin folder sufficiently! 
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NT Server - Registry Entries 



When the Oracle sizing wizard is run by the client to create their database, a number 
of entries are written to the NT Server's system registry. The following entries are 
used by the hwb utility during execution 

[HKEY_CURRBNT_USER\Software\VB and VBA Program Settings\PCPWOra\Keys] 
• PCPAYS YS ■-"_-~e_"Uh- 

• INTERNA!* " « "da Y}_f6« 
■MaintKey"««_»~e_"0h - 
•MIGRATE". "re_eY«A ■ 
•SUPBROP"«"_«6j __ 

• REPORTS • - • 7uKy_ * ♦/ • 
•DefauIt^.-^.-e^-Uh" 

•sys-»" i -_cTl(<e- 

• SYSTEM ■ * ■ £ 3TNa YIJ> " 

These keys represent the user id's and passwords which can be part of a template 
(.bit) file. In order to use one of the user id / password combinations, the user id must 
be surrounded by %'s in the .brt file. For example, to use the SrvMgr23 utiYity to run a 
SQL file named dothis.sql and use the INTERNAL id and password, the following line 
would be in the dothis.brt file. 

connect INTERNAL / % INTERNAL % 
-some aql code here 

At run time, hwb will retrieve the value for the INTERNAL key from the registry, 
decode the key value and write the following to the tempn.sql file in the c:\temp folder 

connect INTERNAL / THE PAS SWORD 
-some eql code here 



[HXBY_CURRENT_USER\Software\VB and VBA Program Settings\PCPWOra\Files] 
"Home"«"C:\\ORANT\\BIN" 

■ Ma in t enanc e ■ » • C : \ \ORAD AT A\ \ P CPW \ \ admi n\ \aa i n t • 
- Admin C : \ \ORADATA\ \ PCPW\ \ ADMIN » 
■Backup"-* • 

These settings let hwb know where to find other files that it may need during 
execution 



[HXEY_CURRENT_USER\Software\VB and VBA Program Settings\PCPWOra\Bxtents) 
•Number"»"l» 

This settings tells hwb how many extents are acceptable. In this case, any 
tablespaces with more than 1 extent will be fixed. 



[KKEY_aJRRENT_USER\Software\VB and VBA Program Settings\PCPWOra\HWB3 

■Tablea"*"!" 

■ Performance ■ a ■ 0 ■ 

•Use Note of the Day" »■ True" 
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These settings control some of the features of hwb. Tables tell hwb whether or not to 
check tablespaces during the database performance step. A 1 means Yes, a 0 means 
No. Performance tells hwb whether or not to check database engine performance 
criteria during the database performance step. Use Note of the Day. If 'True" then 
fatal errors will generate a Note of the Day table entry. If "False" then fatal errors will 
only be logged to the hwb. log file. This is for client's who want to use the NT event 
log to monitor fatal errors. There is no way within the current version for hwb to write 
directly to the NT event log, but a client could write a program to analyze the hwb.log 
file and generate event entries. This is a good candidate for a PWR. 
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Source Code 



Following the source code for the hwb utility version 1.05-10. 



VERSION 5.00 

Begin VB.Form frmMain 

Caption 

ClientHeight 



870 
60 
345 
5370 



"PCPW Health & Well Being Engine" 



ClientLeft 
ClientTop 



ClientWidth 
LinkTopic 
ScaleHeight 
ScaleWidth 



870 
5370 



"Forml" 



StartUpPosition = 2 ' CenterScreen 

End 

Attribute VB_Name a "frmMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VBJTreatable = False 
Attribute VB_PredeclaredId - True 
Attribute VB_Exposed = False 
Dim g_szStatus As String 
Dim g_dErrorCount As Integer 
Dim g_szOracleHome As String 
Dim g_szMaint As String 

Private Sub Commandl_Click ( ) 

If g_szStatus = "READY" Then 

rc = WriteLogFile ("HBW: Execute Stop") 

rc ■ CloseLogFile () 

End 

Else 

rc = MsgBox("Are you sure you want to cancel this process?", vbYesNo + vbQuestion, 
"Confirm"} = vbYes 

If rc = vbYes Then 

rc = WriteLogFile ("HBW: Execute Stop") 
rc = CloseLogFile () 
End 
End If 
End If 

End Sub 

Private Sub Form_Load() 
Dim fh As Integer 



initialize 



Load frmStatus 

f nnStatus . txtStatus .Text = "Ready." 
f nnStatus .Show 0 
g_szStatus = "READY" 
g_dError Count a 0 

rc a OpenLogFile (App.Path St "\hbw") 

rc = WriteLogFile { "HBW: Execute Start") 

fh = FreeFile 

Open App.Path & "\maint\f ix. ctl" For Input As #fh 
Do Until EOF(fh) 
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1 nnntr 1 r\nc 



Line Input #fh, buf$ 

If Mid$(buf$, 5, 8) = "ORA^HOME" Then 

g_szOracleHome a Trim(Mid$ (buf$, 15)) 
End If 

If Mid$(buf$, 5, 9) = "ORA_MAINT" Then 

g_szMaint = Trim (Mid$ (buf $ , 15)) 
End If 

Loop 

If g_szOracleHome = Or g_szMaint = Then 

rc » WriteLogFileC'HBW: *** ERROR *** Unable to open HBW config file (FIX.CTL)") 

rc = CloseLogFile () 

Unload frmStatus 

End 
End If 

Close #fh 



start fixfrag.sql 



frmStatus. txtstatus. Text - frmStatus . txtstatus .Text & Chr$(10) & "Checking your 
database ..." 

rc * WriteLogFileC'HBW: Spawning FIXFRAG.SQL") 
rc * WriteLogFileC'HBW: FIXFRAG.SQL return") 



' analyze results -- check performance log 



frmStatus . txtstatus .Text * frmStatus . txtstatus . Text & Chr$UO) & "Checking performance 
criteria. . . " 

rc = WriteLogFileC'HBW: Checking Performance LOG for Warnings") 
rc = CheckPerfO 



analyze results check tbl/idx warnings 



frmStatus. txtstatus .Text * frmStatus . txtstatus .Text & Chr$(10) & "Checking 
fragmentation. . . M 

rc = WriteLogFileC'HBW: Checking Fragmentation Warnings"} 
rc = CheckFragWarnings { ) 



analyze results check tbl/idx alarms 



rc a WriteLogFileC'HBW: Checking Fragmentation Alarms") 
rc = Che ckFragAl arms {) 



' all done, close up shop 

i , „ „ „ 

frmStatus. txtstatus. Text = frmStatus . txtstatus .Text & Chr$(10) & "Process complete, 
cleaning up ... " 

rc = WriteLogFileC'HBW: Process reached completion") 

If g_dErrorCount = 0 Then 

rc = WriteLogFileC'HBW: There were no errors reported.") 

Else 

rc = WriteLogFileC'HBW: *** " & g_dErrorCount & " *** Errors reported.") 
End If 

rc - CloseLogFile () 
Unload frmStatus 
End 

End Sub 
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Private Function CheckPerf 0 As Boolean 
Dim fh As Integer 



open performance log file 



fh - FreeFile 

On Error GoTo NoPerfLog 

Open App.Path & "\ . . \maint\perf . log" For Input As #fh 



• if any warnings, write NOTE OF THE DAY ENTRY 
' and record in HBW log file 



Do Until EOF(fh) 
Loop 



close performance log file 



Close #£h 

On Error GoTo 0 
CheckPerf = True 

rc = WriteLogFile ("HBW: Performance analysis complete.") 

Exit Function 

NoPerfLog: 

On Error GoTo 0 

rc = WriteLogFile ("HBW: ** ERROR ** Unable to open Performance Log File. 

(PERF.LOG) ") 

g_dErrorCount = g_dErrorCount + 1 
Exit Function 

End Function 

Private Function CheckFragWarnings { ) As Boolean 
Dim fh As Integer 



open frag warning log file 



fh s FreeFile 

On Error GoTo NoWamLog 

Open App.Path & "\..\maint\fragwarn.log" For Input As #fh 



• if any entries, write NOTE OF THE DAY ENTRY 
' and record in HBW log file 



Do Until EOF(fh) 
Loop 



close frag warning log file 



Close ttfh 

On Error GoTo 0 
CheckFragWarnings = True 

rc * WriteLogFile ("HBW: Fragmentation analysis complete.") 

Exit Function 



11 



NoWarnLog : 

On Error GoTo 0 

rc = WriteLogFile CHBW: ** ERROR ** Unable to open Fragmentation Log File. 
( FRAG WARN . LOG) ") 

g_dErrorCount = g_dErrorCount + 1 
CheckFragWamings - False 
Exit Function 

End Function 

Private Function Che ckFragAl arms 0 As Boolean 

Dim fh As Integer 
Dim fh2 As Integer 
Dim buf As String 
Dim tName As String 
Dim tSize As Double 



open frag alarm log file 



fh = FreeFile 

On Error GoTo NoAlarmLog 

Open App.Path & "\maint\f ix_tab.out" For Input As #fh 



• it any entries, FIX 'EM 



If LOF(fh) > 0 Then 



shutdown the database and bring it back 
up in restricted mode 



frmStatus. txtStatus .Text = f rmStatus . txtStatus .Text & Chr$(10) & "Fixing 
fragmentation. . . " 



• for each entry in the alarm log file 



Do Until EOF(fh) 

Line Input #fh, buf 



■ get the table name and the required disk space 
• for the export file 



tName = Trim (Left$ (buf , 30}) 

tSize * Val (Trim (Mid$ (buf, 31, 20))) 

rc * WriteLogFile ("HWB: Fixing - & tName & " (" & Format$ (tSize, "#,##0") 

n bytes required)") 



• find a drive that can handle it 



szDrive$ - FindSpace ( tSize, "C: w ) 
If szDrive$ = Then 

rc = WriteLogFile ( "HBW: *** ERROR *** Can't find drive with " & 

Format$ (tSize, "#,##0") & n bytes free. Cannot create export file.") 
CheckFragAlarms = False 
g_dErrorCount = g__dError Count + 1 
Exit Function 

Else 

rc = WriteLogFile ("HBW: Export file {" & tName & n .dmp) will be 
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created on " & szDrive) 
End If 



generate DDL 



Primary Key 



fh2 = FreeFile 

Open App.Path & "\maint\genjpk. sql" For Output As #fh2 

Print #fh2, "connect pcpaysys/pay4 94 6" 

Print ttfh2, -spool * " & App.Path & "\maint\drop . log ' " 

Print #fh2, "SELECT 'ALTER TABLE • J| UPPERC" & tName & " * ) || • ADD (PRIMARY 
KEY (' || column_name M 

Print #fh2, "From" 

Print #fh2, M user^cons^columns Tl, " 
Print #fh2, " user_constraints T2" 
Print #fh2, -Where" 

Print #fh2, - Tl . table_name = UPPER ( 1 " & tName & •">" 
Print #fh2, " AND constraint_type = 'P'" 

Print #fh2, " AND Tl . constraint_name - T2 . constraint_name" 

Print #fh2, " AND position = 1" 

Print *fh2, •/• 

Print #fh2, "SELECT" 

Print fcfh2, " '/'II column_name" 

Print #fh2, "From" 

Print #fh2, " user_cons_columns Tl, " 
Print #fh2, " user_constraints T2" 
Print #fh2, "Where" 

Print #fh2, " Tl . table_name = UPPER ( ' " 4 tName & '")" 
Print #fh2, " AND constraint_type = ' P'" 

Print #fh2, " AND Tl . constraint_name = T2 . constraint_name " 

Print #fh2, " AND position > 1" 

Print #fh2, "Order By" 

Print #fh2, M position" 

Print #fh2, "/" 

Print #fh2, " SELECT '));'" 

Print #fh2 f "From DUAL" 

Print #fh2, "/" 

Close #fh2 



fh2 * FreeFile 

Open App.Path & "\maint\gen_pk.bat 11 For Output As #fh2 

Print #fh2, g_szOracleHome & "\svrmgr23 ®" & App.Path & " \maint\gen_pk . sql " 
Close #fh2 

ExecDOSOmd ( App .Path & " \maint\gen_pk . bat " ) 
• TODO: check for success 

rc = WriteLogFile ("KBW: DDL generation for " & tName & " <PK) complete.") 



' Foreign Key(s) 



fh2 = FreeFile 

Open App.Path & "\maint\gen_fkl . sql" For Output As #fh2 

Print #£h2, "spool fit App.Path & "\maint\fkl . sql ' " 

Print #fh2, "SELECT 'spool " & App.Path & "\maint\f k . sql ' from dual" 

Print #fh2, "/" 

Print #fh2, »» 

Print #fh2, "/* Generate all Parent Foreign Keys */" 
Print #fh2, »" 

Print #fh2, " SELECT »®» U App.Path & "\maint\Gen_f k2 . sql ' || UPPERC" & tName 
» ') || » 1 || constraint_name" 
Print #fh2, "From" 
Print #fh2, "user_constraints" 
Print #fh2, "Where" 

Print Jtfh2, "table_name = UPPERC" & tName & " ■ ) " 
13 
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Print #fh2, "AND constraint_type = 'R'" 
Print #fh2, "ORDER BY const raint_name" 
Print #fh2, n / n 
Print #fh2, 

Print #fh2, "/* Generate all Children Foreign Keys */" 
Print #fh2, "" 

Print #fh2, "SELECT & App.Path & "\maint\Gen_f k2 . sql • || tl . table_name || 
|| 1 1 . cons t r a i n t_name " 

Print #fh2, "From" 
Print #fh2, "user__constraints Tl," 
Print #fh2, "user_constraints t2" 
Print #fh2, "Where" 

Print #fh2, M t2 . table__name = ' M & tName & " ' and t2 . constraint^type =» »P'" 
Print #fh2, "AND t2 . cons train t_name = tl . r_cons train t_name" 
Print *fh2, "ORDER BY tl . table_name 11 
Print #fh2, -/■ 
Print #fh2, "" 

Print #fh2, "SELECT 'spool off FROM dual" 

Print #fh2, "/" 

Print #fh2 ( " n 

Print #fh2, "spool off" 

Close #fh2 

fh2 = FreeFile 

Open App.Path & "\maint\gen_fkl.bat" For Output As #fh2 

Print #fh2, g__szOracleHome & "\svrmgr23 & App.Path & "\maint\gen_f kl . sql " 
Close #fh2 

ExecDOSCmd (App.Path U "\maint\gen_fkl.bat") 
* TODO: check for success 

rc = WriteLogFile ("HBW: DDL generation for " & tName & " ( FK1 ) complete.") 

fh2 = FreeFile 

Open App.Path & "\maint\gen_fkl.bat" For Oucput As #fh2 

Print #fh2, g_szOracleHome & "\svrmgr23 3" & App.Path & " \maint\f kl . sql" 
Close #fh2 

ExecDOSCmd (App.Path & "\maint\gen_fkl.bat") 
' TODO: check for success 

rc * WriteLogFile ("HBW: DDL generation for " £. tName U " (FK) complete.") 



do the export 



' create exp.sql in the maint folder and execute it using 

' SVRMGR23 (NT) , the export statement looks like... 

' c:\orant\bin\exp73 username=pcpaysys/pay4 94 6 constraints^ 
tables= (t_schedule) f ile=d: \export\t_schedule.dmp 
log=c: \oradata\pcpw\maint\t_schedule_exp, log 

fh2 = FreeFile 

Open App.Path & "\maint\export .bat" For Output As #fh2 

Print #fh2, g_szOracleHome & "\exp73 username=pcpaysys/pay4 94 6 constraints=n 
tables=(" & tName & ") file=" & szDrive$ & "\export\" U tName & ".dmp log=" & g_szMaint & 
"\" & tName & "_exp.log" 

Close #fh2 

' now, execute the bat file just created in the step above 
bDir = False 

If Dir$ (szDrive$ & "\export'\ vbDirectory) = "" Then 

MkDir szDrive$ & »' \export" 

bDir = True 
End If 

ExecDOSCmd (App.Path & " \mamt\export . bat" ) 
» TODO: check for success 

rc - WriteLogFile ("HBW: Export complete.") 
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drop the table 



fh2 = FreeFile 

Open App.Path & "\maint\drop . sql* For Output As #fh2 
Print #fh2, "connect pcpaysys/pay4 94 6 " 
Print #fh2, "spool * " & App.Path & "\maint\drop. log ' " 
Print #fh2, "DROP TABLE - & tName & " CASCADE CONSTRAINTS; " 
Close #fh2 

fh2 = FreeFile 

Open App.Path & "\maint\drop.bat" For Output As #fh2 

Print #fh2, g_szOracleHome & "\svrmgr23 ®" & App.Path & "\maint\drop, sql " 
Close #fh2 

ExecDOSCmd (App.Path & "\maint\drop.bat") 
' TODO: check drop. log for success 

rc * WriteLogFile ("HBW: Table " & tName & " dropped.") 



' import the exported data 



fh2 = FreeFile 

Open App.Path & H \maint\ import .bat" For Output As #fh2 

Print #fh2, g_szOracleHome & "\imp73 usemame=pcpaysys/pay4 946 constraints=n 
tables=(" & tName U ") file=" & szDrive$ & "\export\" & tName & " .dmp log=" & g_szMaint & 
"\" & tName & "_imp.log" 

Close «fh2 

ExecDOSCmd (App.Path & "\maint\import.bat") 
' TODO: check for success 

rc * WriteLogFile ("HBW: Import complete.") 



♦ use generated DLL to recreate constraints 



fh2 » FreeFile 

Open App.Path & "\maint\ddl.bat" For Output As #fh2 

Print #fh2, g_szOracleHome & "\svrmgr23 ®" &. App.Path & tt \maint\pk . sql " 
Close #fh2 

ExecDOSCmd (App.Path & "\maint\ddl.bat") 

■ TODO: check drop. log for success 

rc = WriteLogFile ( "HBW: Primary key created.") 

fh2 - FreeFile 

Open App.Path & "\maint\ddl.bat" For Output As #fh2 

Print #fh2, g_szOracleHome & "\svrmgr23 @" & App.Path & "\maint\fk.sql" 
Close #fh2 

ExecDOSCmd (App.Path & "\maint\ddl.bat") 
• TODO: check drop. log for success 

rc * WriteLogFile ("HBW: Foreign key(s) created.") 



• cleanup and get ready for the next table 



If Dir$ (szDrive$ & "\export\" & tName & ".dmp", vbNormal) <> " »' Then 

Kill szDrive$ & "\export\" & tName & ".dmp" 
End If 

If bDir Then 

RmDir szDrive$ & "\export" 
End If 

♦ TODO: clean up maint folder 

Loop 
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• all entries processed, so shutdown the database 

1 and bring it back up in normal mode. 

» 



rc = WriteLogFileCHBW: 



Fragmentation repairs complete. ") 



Else 



rc = WriteLogFileC'HBW: 



No fragmentation repairs necessary.") 



End If 



close frag alarm log file 



Close #fh 

On Error GoTo 0 

Che ckFragAl arms = True 

Exit Function 

NoAlarmLog: 

On Error GoTo 0 

rc - WriteLogFile ("HBW: ** ERROR ** Unable to open Fragmentation Fix Log File. 

(FIX_TAB.OUT) M ) 

g_dErrorCount = g_dErrorCount + 1 
CheckFragAlarms = False 
Exit Function 

End Function 

Function FindSpace (spaceNeeded As Double, startingDrive As String) As String 

Dim di As New clsDisklnfo 
Dim freebytes As Double 



see if fn can fit on fdr ( size is ns ) 



freebytes « GetDiskFreeSpaceLarge (startingDrive) 
If freebytes > spaceNeeed Then 



it fits, so just put it here 



FindSpace « startingDrive 
Exit Function 
End If 



' doesn't fit, so check other drives 



dbFound » False 
For i 1 To 26 

If di.DriveType(Chr$(64 + i) ) = 3 Or di . DriveType (Chr$ {64 + i) ) =4 Then 



di.PathName = Chr${64 + i) + ":\" 

freebytes a GetDiskFreeSpaceLarge (di . PathName) 



♦ adjust freebytes for any dbfs that are already 
1 targetted for this drive 



If freebytes > spaceNeeded Then 



it fits here, so put it here 



dbFound = True 
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Exit Function 
End If 
End If 

Next i 

If db Found - False Then 
FindSpace = 

Else 

FindSpace = di.PathName 
End If 

End Function 



Public Function GetDiskFreeSpaceLarge (DriveLetter As String) As Double 

Dim hdb As Integer 
Dim bf As Double 
Dim buf As String 
Dim buf2 As String 
Dim fh As Integer 

fh = FreeFile 

On Error GoTo CantWrite 

Open DriveLetter + "test.txt" For Output As #fh 
On Error GoTo 0 
. Print #fh, "Testing" 
Close #fh 

ExecDOSCmd ("command.com /c dir " + DriveLetter + "test.txt > c:\dbsizer.lst") 
ExecDOSCmd ("cmd /c dir " + DriveLetter + "test.txt > c:\dbsizer.lst") 
hdb = FreeFile 

Open "c:\dbsizer. 1st" For Input As #hdb 
Do Until EOF (hdb) 

Line Input #hdb, buf 

idx = InStr(buf, "bytes free") 

If idx > 0 Then 

buf * Left$(buf, idx - 2) 

For i% = Len(buf) To 1 Step -1 

If Mid$<buf, i%, 1) = ■ " Then 
buf = Mid$(buf, i% + 1) 
Exit For 
End If 
Next i% 
End If 

Loop 

Close #hdb 

Kill "c:\dbsizer.lst" 

Kill DriveLetter + "test.txt" 

buf 2 = 

For i% = 1 To Len(buf) 

thisChar * Mid$(buf, ilr, 1) 

If thisChar <> " " And thisChar <> "," Then 
buf2 = buf2 + thisChar 

End If 
Next i% 

GetDiskFreeSpaceLarge = Val(buf2) 
Exit Function 

CantWrite : 

On Error GoTo 0 
GetDiskFreeSpaceLarge = 0 

End Function 
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VERSION 5.00 
Begin VB.Form frmStatus 



BackColor 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

LinkTopic 
ScaleHeight 
ScaleWidth 

StartUpPosition = 2 
Begin VB.CommandButton 

Caption = 

Height 

Left 

Tablndex 
Top 

Visible 
Width 

End 

Begin VB . PictureBox Picture3 



&HO0FFFFFF& 

"PCPW/Oracle Health Check" 
3165 
60 
345 
6900 

"frmStatus. frx" : 0000 
"Forml" 
3165 
6900 



•CenterScreen 
Command 1 
"Cancel" 
360 
5685 
14 

2700 
0 

1080 



False 



Appearance 
BackColor 
BorderStyle 
ForeColor 
Height 
Left 

ScaleHeight 
ScaleWidth 
Tablndex 
Top 
Width 

Begin VB. Label Labell 
Alignment = 
BackStyle 
Caption 

BeginProperty Font 
Name 
Size 
Charset 
Weight 
Underline 
Italic 

Strikethrough 
EndProperty 
ForeColor 
Height 
Left 

Tablndex 
Top 
Width 
End 



0 'Flat 
&HO00O0OFF& 
0 'None 
&H80000008& 
645 
-15 
645 
6915 
12 
0 

6915 



2 'Center 

0 'Transparent 

"Do not interrupt ! 

"Arial" 

12 

0 

700 

0 'False 
0 'False 
0 'False 

&H00FFFFFFSt 

315 

165 

13 

150 

6540 



Database maintenance in progress. 



End 



Begin VB . PictureBox Picture2 



AutoSize 

BorderStyle 

Height 

Left 

Picture 

ScaleHeight 

ScaleWidth 

Tablndex 

Top 

Width 



- 1 ' True 
0 'None 
1245 
180 

"frmStatus 

1245 

2250 

10 

855 

2250 



frx" :1CFA 
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End 

Begin VB . PictureBox Picturel 

0 'Flat 



0 

-1 
-1 



Appearance 
AutoRedraw 
AutoSize 
BackColor 
BorderStyle 
ForeColor 
Height 
Index 
Left 
Picture 
ScaleHeight 
ScaleWidth 
Tab Index 
Top 
Width 

End 

Begin VB . PictureBox Picturel 

Appearance 1 ' p 

AutoRedraw 

AutoSize 

BackColor 

BorderStyle 

ForeColor 

Height 

Index 

Left 

Picture 

ScaleHeight 

ScaleWidth 

Tablndex 

Top 

Width 
End 

Begin VB . PictureBox Picturel 
Appearance 
AutoRedraw 
AutoSize 
BackColor 
BorderStyle 
ForeColor 
Height 
Index 
Left 
Picture 
ScaleHeight 
ScaleWidth 
Tablndex 
Top 
Width 
End 

Begin VB . PictureBox Picturel 
Appearance n 
AutoRedraw 
AutoSize 
BackColor 
BorderStyle 

ForeColor 

Height 

Index 

Left 

Picture 

ScaleHeight 

ScaleWidth 

Tablndex 

Top 



-1 »True 
-1 'True 
^80000005^ 
0 ' None 
&H80000008& 
225 
4 

2505 

"frmStatus.frx" :AFC8 
225 
240 
9 

2280 
240 



Flat 
True 
True 



&H80000005& 
0 ' None 
iH90000008& 
225 
3 

2505 

"frmStatus. frx" :B2DA 

225 
240 
8 

1920 
240 



Flat 
-1 'True 
-1 'True 
&H80000005& 
0 • None 
&H80000008& 
225 
2 

2505 

"frmStatus .frx" :B5EC 
225 
240 
7 

1560 
240 



0 'Flat 
-1 'True 
-1 'True 
&H80000005& 
0 ' None 
SJ480000008& 
225 
1 

2505 

"frmStatus.frx":B8FE 

225 
240 
6 

1200 
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Width 



240 



End 

Begin VB . PictureBox Picturel 



Appearance 


= 


0 'Flat 


AutoRedraw 


a 


- 1 1 True 


AutoSize 


a 


-1 'True 


BackColor 


= 


&H80Q00Q05& 


BorderStyle 




0 ' None 


ForeColor 


a 


&H80000008& 


Height 


= 


225 


Index 


a 


0 


Left 


a 


2505 


Picture 


- 


n f rmStatus . f rx" : BC10 


ScaleHeight 


a 


225 


ScaleWidth 


a 


240 


Tablndex 




5 


Top 


a 


840 


Width 




240 



End 

Begin VB. Label lblTicker 



BackStyle 
Caption = 
Height = 
Left 

Tablndex 

Top = 
Width 

End 

Begin VB. Label Label2 
BackStyle - 
Caption = 
Height 

Index = 
Left 

Tablndex 

Top 

Width 

End 

Begin VB. Label Label2 
BackStyle - 
Caption = 
Height - 
Index = 
Left 

Tablndex - 
Top * 
Width 

End 

Begin VB. Label Label2 
BackStyle 
Caption - 
Height 
Index 
Left 

Tablndex = 
Top = 
Width 

End 

Begin VB . Label Label2 
BackStyle = 
Caption ■ 
Height 
Index 
Left 

Tablndex - 
Top * 
Width 



0 'Transparent 

"Label 3" 

240 

135 

11 

2790 
5490 



0 'Transparent 
"Rebuilding indexes" 
255 
4 

2835 
4 

2310 
4005 



0 'Transparent 

"Checking index fragmentation" 

255 

3 

2835 
3 

1950 
4005 



0 'Transparent 

"Checking table fragmentation" 

255 

2 

2835 
2 

1590 
4035 



0 'Transparent 

"Checking database performance statistics" 

255 

1 

2835 
1 

1230 
3990 



on 



End 

Begin VB. Label Lafael2 
BackStyle » 
Caption 
Height 

Index s 
Left 

Tab Index = 
Top s 
Width 
End 

End 

Attribute VB_Name * "f rmStatus" 
Attribute VB_GlobalNameSpace = False 
Attribute VBJTreatable ■ False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Commandl Click () 



0 'Transparent 
"Analyzing database" 
255 
0 

2835 
0 

870 
4005 



g_ Cancel = True 



End Sub 



Private Sub Form_Load() 



Dim i As Integer 



• get the language 



g_LANGUAGE = RegGet Value {HKEY_CURR£NT_USER, "Control Panel\International" , "Locale") 



Select Case g__LANGUAGE 
Case "00001009" 

g_LANGOFFSET * 1000 

g_VARTABLE = "Variables" & g_LANGUAGE 
Case "00000C0C" 

g_LANGOFFSET = 2000 

gJ/ARTABLE = "Variables" & g_ LANGUAGE 
Case Else 

g__LANGOFFS ET = 0 

gJ/ARTABLE = "Variables00000409" 
End Select 



On Error GoTo NoLanguageRes 

txt$ = RES (101) 

GoTo LanguageContinue 



NoLanguageRes : 

g_ LANGO F FS ET = 0 

g_VARTABLE = M Variables00000409 M 



LanguageContinue : 
On Error GoTo 0 



DEBUG: uncomment the next line to force language selection 



g_LANGOFFSET =2000 

g_VARTABLE = "Variables" & g_LANGUAGE 



i = SetWindowPos(Me.hWnd, HWNDJTOPMOST , 

Me. Left \ Screen .TwipsPerPixelX, Me. Top \ Screen. TwipsPerPixelY, _ 

Me. Width \ Screen. TwipsPerPixelX, Me. Height \ Screen . TwipsPerPixelY, 0) 



Me. Caption » RES (101) 
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Label 1. Caption * RES (203) 
Label2(0) .Caption * RES(204) 
Label2(l) .Caption * RES(205) 
Label2 (2) .Caption = RES(206) 
Label2 (3) .Caption = RES{207) 
Label2 (4) .Caption * RES(208) 
Commandl. Caption « RES (209) 

End Sub 

Attribute VB_Name » "vbLogFile" 
Dim m_dFH As Integer 
Dim m_szLogFile As String 
Dim m_lCount As Long 

Public Function OpenLogFile (szApp As String, szDate As Date) As Boolean 



this function will open a log file for the specified 
application (szApp) . the format of the log file will be 
appname.log. If a date is passed in the second parameter 
then the log file will be trimmed using the TrimLog function 



m_szLogFile = GetParam (szApp, 1, True) 
If szDate <> 0 Then 

rc « TrimLog (m_szLogFile, szDate) 
End If 

m_szLogFile * m_szLogFile & ".log" 
m_dFH = FreeFile 

Open m_szLogFile For Append As #m_iFH 
If LOF(m_dFH) - 0 Then 

rc = WriteLogFile (UCase$ (m_szLogFile ) ) 

rc = WriteLogFile (Format$ (Now, "yyyy-mm-dd hh:mm:ss ")) 
End If 

rc = WriteLogFile ( "DELIMINATOR" ) 
OpenLogFile = True 
End Function 

Public Function CloseLogFile ( ) As Boolean 

Close #tn_dFH 

CloseLogFile * False 
End Function 

Public Function WriteLogFile (szText As String) As Boolean 
If szText = "DELIMINATOR" Then 

Print #m_dFH, Format$(Now, "yyyy-mm-dd hh.-mm.-ss ") & 



Else 

Print #m_dFH, Forma t$ (Now, 
End If 

WriteLogFile * True 
End Function 

Private Function TrimLog (szLogFil 



"yyyy-mm-dd hh:mm:ss "J & szText 



-.ring, szDate As Date) As Boolean 



this function will trim the eldest messages from a 
log file. The parameter szDa^a specifies the date of 
the oldest message to keep. Any message dated before the 
specified date will be deleted. 



Dim fh, fh2 As Integer 
Dim tDate As Date 
Dim szFile As String 

szFile = szLogFile & ".log" 
If Dir$ (szFile, vbNormal) = Then 
TrimLog = True 



Exit Function 
End If 

If FileLen(szFile) = o Then 

TrimLog = True 

Exit Function 
End If 

Se^^ile.-.Xog.ror Input As .«h 

, £irs t line in a log «!. is always tbe original creation dace 
Line Input #fh, t$ 

"2 a- " "•"> ,s ei " i,st 
s-s'-"- w— — - - "' ' ' ""'* 

"Do Until EOF(fh) 

Line Input #fh, t$ 

tDate = CDate(Left$<t$, 19)) 

If tDate >* szDate Then 

Print #fh2, t$ 
End If 

Loop 

Close #fh 
Close #fh2 

T^«pile & w tmp", szLogFile & ".log" 
FileCopy szLogFile u . » 
Kill szLogFile & -.tmp- 
TrimLog = True 

End Function 

isr&ar^^^ - — <Byval hwnd As Lon9, " 

Kval cx As integer. ByVal cy As Integer, _ 
ByVal -Flags As Integer) As Integer 

Global g_LANGUAGE As String 
Global g_LANGOFFSET As Integer 
Global g_VARTABLE As String 

Global Const SWPJJOMOVE = 2 

Global Const HWNDJTOPMOST - -1 
Global Const HWNDJ10T0PM0ST * -2 

Global g_DEBUG_MODE As Boolean 
Global g_HWBTables As Integer 
Global g_HWBPerf As Integer 
Global gJlEGFree As Double 
Global g_HWBLASTANALYZE As Date 

Type bufLayout 

ItemType As String * 1 
ItemName As String * 30 

~. fie ci-rina * 1 



CompareType As String 
WarningValue As String 5 
ErrorValue As String * 5 
Actuaivalue As String * 5 
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End Type 

Type PerfStats 

ItemType As String * 1 
ItemName As String * 30 
CompareType As String * 1 
WarningValue As String * 5 
ErrorValue As String * 5 
ActualValue As String * 5 
Count As Integer 

End Type 

Dim g_szStatus As String 

Dim g_dErrorCount As Integer 

Dim g_dWamingCount As Integer 

Dim g_szOracleHome As String 

Dim g_szMaint As String 

Dim g_Password As String 

Dim g^Maint Password As string 

Dim g_dLogFileAge As Integer 

Dim g_d£xtents As Integer 

Dim g_WriteNoteoftheDay As String 



Sub MainO 

Dim fh As Integer 
Dim m_Date As Date 

If UCase${Command$) = " /DEBUG" Then 

g_DEBUG_MODE * True 
Else ~ 

g__DEBUG_MDOE = False 
End If 

' get passwords from System Registry and decrypt tern. . . 
g_Password = GetSetting < "PCPWOra" , "Keys", " INTERNAL" , "") 
g_Password = StrDecode (g_Pas sword, 14 755) 

g_MaintPassword = GetSetting (" PCPWOra" , "Keys", "PCPAYSYS", "") 
g_MaintPassword = StrDecode <g__MaintPassword, 14755) 

' get other processing parameters from Registry 

g_d%ogFileAge s Val {GetSetting ( "PCPWOra" , "LogFiles", "Age", "90")) 

g_dExtents = Val (GetSetting ( "PCPWOra" , "Extents", "Number 1 ', "l")) 

g_HWBTables = Val (GetSetting I "PCPWOra" , "HWB", "Tables", "l"}) 

g_HWBPerf = Val (GetSetting ( "PCPWOra" , "HWB", "Performance", "1")) 

g_MEGFree = Val (GetSetting ( " PCPWOra" , "HWB", "Disk Space Warning", "5")) 

g_HWBLASTANALYZE * CDate (GetSetting { "PCPWOra" , "HWB", "Last Analyze", "01/01/80")) 

g_WriteNoteoftheDay = GetSetting ( " PCPWOra" , "HWB" , "Use Note of the Day", "True") 

Load frmStatus 
For i = 0 To 4 

frmStatus. Picturel (i) .Visible = False 

frmStatus. Label2 (i) .FontBold = False 
Next i 

frmStatus. Label2 (0) .FontBold = True 
frmStatus. lblTicker. Caption = »" 
frmStatus .Show 0 
frmStatus . Refresh 



initialize 



g_dErrorCount = 0 
g_dWarningCount - 0 
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m_Date ■ Now - g_dLogFileAge 

rc - OpenLogFile (App.Path & "\hwb", mJDate) 

rc * WriteLogFile("HBW: Execute Start") 

g_320racleHome » GetSetting ("PCPWOra" , "Files", "Home", 

g~szMaint = GetSetting ( "PCPWOra", "Files", "Maintenance", "") 

On Error GoTo NoLogsToDelete 
Kill App.Path & "\maint\*.log" 
NoLogsToDelete: 

On Error GoTo 0 

r make sure there's at least 1 MEG of free space on the admin drive 
cDrive$ * Mid$ (GetSetting ("PCPWOra", "Files", "Admin", ""), 1, 1) &":\" 
freebytes ■ GetDiskFreeSpaceLarge (cDrive$) / 1024000 
If freebytes < 1 Then 

rc * WriteLogFile (RES (102) } ' not enough disk space 

Call Cleanup 

rc - CloseLogFile () 

Unload frmStatus 

End 
End If 



' shutdown the database and bring it back 
' up in restricted mode 



fh = FreeFile 

Open App.Path & " \maint\ shutdown . sql " For Output As #fh 
Print #fh, "connect internal/" & g_Password 
Print #fh, "shutdown immediate" 
Close #fh 

fh = FreeFile 

Open App.Path & "\maint\shutdown.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\svrmgr23 @" U App.Path & " \maint\shutdown . sql" 
Close #fh 

frmStatus . lblTicker. Caption = RES (103) 1 shutting down the database 

frmStatus . Refresh 

DoEvents 



Before shutting down, get the length of the alert log 
so I don't have to read the whole thing to get to the 
end 



lAlertLogLength = FileLen (App . Path U "\..\log\pcpwALRT.log") 
ExecDOSCmd (App.Path & "\maint\shutdown.bat") 



' now that the database is shutdown, make sure the shutdown 
1 was successful and without errors 



fhCheck = FreeFile 

Open App.Path & "\..\log\pcpwALRT.log" For Input As #fhCheck 
Seek ttfhCheck, lAlertLogLength 
bClosed = False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Trim(buf$) = "Completed: ALTER DATABASE DISMOUNT" Then 

bClosed = True 
End If 

If Trim(buf$) = "Completed: ALTER DATAEASE pay4win DISMOUNT" Then 

bClosed = True 
End If 
DoEvents 
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Loop 
Close ttfhCneck 
If bClosed = False Then 



• this means the database was not shutdown properly 
1 note it in the HWB . LOG and the NOT E_0 F_TH E_D A Y 

• table, then get out. 

rc = WriteLogFile(RES(104) ) • unable to shutdown 
rc = WriteNoteOfTheDay(RES(105) ) » unable to shutdown 
Bailout (False) 
End If 

fh as FreeFile 

Open App.Path & "\maint\restrict .sql" For Output As #fh 
Print #fh, -connect internal/" & g_Password 

Print #fh, "startup pfile=" & App.Path & "\initpcpw.ora restrict- 
Close #fh 

fh = FreeFile 

Open App.Path & "\maint\restrict.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & M \svrmgr23 ®» & App.Path & " \maint\restrict . sql " 
Close #fh 

frmStatus.lblTicker. Caption = RES (106) 1 starting in restricted mode 

frmStatus .Refresh 

DoEvents 

lAlertLogLength ■ FileLen (App . Path & "\..\log\pcpwALRT.log") 
ExecDOSCmd (App.Path & "\maint\restrict.bat") 



• Make sure the database is up in restricted mode 



fhCheck = FreeFile 

Open App.Path & "\ . . \log\pcpwALRT. log" For Input As #fhCheck 
Seek #fhCheck, lAlertLogLength 
bClosed = False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Trim(buf$) = "Completed: alter database open" Then 

bClosed = True 
End If 

If Trim(buf$) = "Completed: alter database pay4win open" Then 

bClosed = True 
End If 
DoEvents 

Loop 
Close ttfhCheck 
If bClosed = False Then 



' note it in the HWB. LOG and the NOTE_OF__THE_DAY 
• table, then get out. 



rc = WriteLogFile (RES (107) ) ' unable to restart 
rc = WriteNoteOfTheDay (RES (108) ) 1 unable to restart 
BailOut (True) 
End If 



' before we begin, coalesce all tablespaces 



If Dir$ (App.Path & " \gencoal . sql" , vbNormal) = "" Then 

rc = WriteLogFile (RES (109) ) ' control file missing 
WriteNoteOfTheDay (RES (110)) ' alert admin 
Bailout (True) 

End If 
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fh = FreeFile 

Open App.Path & " \gencoal . bat " For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\sqlplus pcpaysys/" & g_MaintPassword & " ®" & App.Path & 
"\gencoal.sql ■ & App.Path 
Close #fh 

' clear the flag file 

rc ■ RemoveFile (App . Path & "\gcdone . out" ) 
ExecDOSCmd (App.Path & "\gencoal.bat") 

frmStatus . lblTicker .Caption = RES (ill) ' coalescing tables, pass 1 
• make sure the prior step is complete before continuing 
Do Until Dir$ (App.Path & "\gcdone . out " , vbNormal) <> 
DoEvents 

Loop 

fh = FreeFile 

Open App.Path & "\coalesce .bat " For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW M 

Print #fh, g_szOracleHome & "\sqlplus pcpaysys/ " & g_MaintPassword & " @" & App.Path & 
"\coalesce.sql " & App.Path & m \* 
Close #fh 

' clear the flag file 

rc = RemoveFile (App. Path & "\ coal done .out ") 
ExecDOSCmd (App.Path & "\coalesce.bat") 

frmStatus . lblTicker .Caption = RES (112) ' coalescing tables, pass 2 
' make sure the prior step is complete before continuing 
Do Until Dir$ (App . Path & "\coaldone .out" , vbNormal) <> 
DoEvents 

Loop 

rc ■ RemoveFile (App . Path & "\gencoal.bat") 
rc ~ RemoveFile (App. Path & "\coalesce.bat") 



start fix_tab.sql 



if unable to run fix_tab.sql then put a note of the day 
and bail out. 



rc a WriteLogFile (RES (113 ) ) ' checking Table/Index fragmentation 
rc = FixTablesO 

frmStatus .Picturel (0) .Visible = True 
frmStatus .Label2 (0) . FontBold = False 
frmStatus .Label2 (l) . FontBold = True 
frmStatus . Refresh 



analyze results check performance log 



rc m WriteLogFile (RES (114) ) ' checking/ fixing performance criteria 
rc = CheckPerf 0 

frmStatus. Picturel (1) .Visible = True 
frmStatus. Label2 (1) . FontBold = False 
frmStatus. Label2 (2) .FontBold = True 
frmStatus .Refresh 



' analyze results -- check tbl/idx alarms 



rc = WriteLogFile (RES (115) ) ■ HBW: Fixing Table/Index Fragmentation 

rc = Check Frag Alarms {) 

frmStatus. Picturel (2) .Visible = True 
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f rmStatus. Label2 (2) .FontBold = False 
frmStatus.Label2 (3) .FontBold = True 
f rmStatus. Refresh 

frmStatus.Picturel (3) .Visible = True 
frmStatus.Labe!2 (3) .FontBold = False 
f rmStatus. Label 2 (4) .FontBold = True 
f rmStatus . Refresh 

frmStatus.Picturel (4) .Visible = True 
f rmStatus. Label2 (4) .FontBold = False 
f rmStatus . Refresh 



• all done, close up shop, and write Note of the Day 

• messages if necessary 



rc = WriteLogFile (RES (116) ) ' HBW : Process reached completion 

If g_dError Count = 0 Then 

If g_dWarningCount = 0 Then 

rc = WriteLogFile (RES (117) ) ' HBW: There were no warnings reported, 
rc = WriteLogFile (RES (118) ) • HBW: There were no errors reported, 
rc = ClearNoteOfTheDay (RES(llO) ) 
rc = ClearNoteOfTheDay ("") 

Else 

rc = WriteLogFile (RES (119) & g_dWarningCount & RES (120) ) 
rc = WriteLogFile (RES (118) ) 
rc = WriteNoteOfTheDay(RES (110) ) 
End If 

Else 

If g_dWarningCount = 0 Then 

rc = WriteLogFile(RES(117) ) 

rc = WriteLogFile (RES (119) & g_dErrorCount & RES (121) ) 
rc = WriteNoteOfTheDayC*") 

Else 

rc = WriteLogFile (RES (119) & g^dWarningCount & RES (120)) 
rc = WriteLogFile (RES (119) & g_dErrorCount & RES (121)) 
rc = WriteNoteOfTheDayC") 
End If 
End If 



' all entries processed, so shutdown the database 
1 and bring it back up in normal mode. 



f rmStatus. lblTicker. Caption = RES (103) 1 shutting down the database 
f rmStatus . Refresh 
Do Events 

lAlertLogLength = FileLen (App . Path & "\ . . \log\pcpwALRT . log" ) 
ExecDOSCmd (App. Path & "\maint\shutdown.bat") 



Make sure the database is shutdown 



fhCheck - FreeFile 

Open App. Path & "\..\log\pcpwALRT.log" For Input As fcfhCheck 
Seek #fhCheck, lAlertLogLength 
bClosed = False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Trim(buf$) = -Completed: ALTER DATABASE DISMOUNT" Then 

bClosed = True 
End If 

If Trim(buf$) = "Completed: ALTER DATABASE pay4win DISMOUNT" Then 

bClosed = True 
End If 
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DoEvents 

Loop 
Close #fhCheck 
If bClosed a False Then 



this means the database was not shutdown properly 
note it in the HWB.LOG and the N0TE_0F_THE_DAY 
table, then get out. 



rc « WriteLogFile<RES(104) ) 
rc = WriteNoteOfTheDay(R£S(105) ) 
Bailout (True) 
End If 

fh = FreeFile 

Open App.Path & "\maint\normal . sql " For Output As #fh 
Print #fh, "connect internal/" & g_Password 
Print #fh, "startup pfile=" & App.Path & "\initpcpw.ora" 
Close #fh 

fh = FreeFile 

Open App.Path & "\maint\normal . bat " For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracl eHome & "\svrmgr23 ®" & App.Path & " \maint\normal , sql " 
Close #fh 

frmStatus.lblTicker. Caption = RES { 122 ) 

f rmStatus . Refresh 

DoEvents 

lAlertLogLength = FileLen (App . Path & "\..\log\pcpwALRT.log") 
ExecDOSCmd (App.Path & " \maint \normal . bac " ) 



Make sure the database is up in normal mode 



fhCheck = FreeFile 

Open App.Path & "\..\log\pcpwALRT.log" For Input As fcfhCheck 
Seek tffhCheck, lAlertLogLength 
bClosed = False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Trim(buf$) = "Completed: alter database open" Then 

bClosed * True 
End If 

If Trim{buf$) = "Completed: alter database pay4win open" Then 

bClosed = True 
End If 
DoEvents 

Loop 
Close #fhCheck 
If bClosed = False Then 



• note it in the HWB.LOG and the NOTE_OF_THE_DAY 
■ table, then get out. 



rc = WriteLogFile(RES(107) ) 
rc = WriteNoteOf TheDay {RES ( 108 ) ) 
Bailout (True) 
End If 



1 delete all the temporary files, created during the 
• Health check process 

If g_DEBUG_MODE = False Then 

Call Cleanup 
End If 
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frmStatus. IblTicker. Caption = "" 

frmStatus . Refresh 

DoEvents 



rc * CloseLogFile () 
Unload frmStatus 
End 



End Sub 



Private Function FixTablesO As Boolean 



Dim fh As Integer 
Dim buf As String 



If Dir$ {App. Path & "\maint\no_f ix . sql" , vbNormal) = "" Then 

rc = WriteLogFile (RES (123) ) 

WriteNoteOfTheDay (RES(llO)) 

BailOut (True) 
End If 



fh a FreeFile 

Open App. Path & " \maint\no_f ix . sql " For Output As #fh 

"/* FIND ALL HIGH RISK TABLES /INDEXES IN MORE THAN 1 



"set termout off" 

"set echo off" 

"set heading off" 

"set pagesize 0" 

"set pause off" 

"set space 0" 

"set verify off" 

"set feed off" 



"spool &l\no_f ix .out" 

ii n 

"column segment_name format a30" 

II II 

SEGMENT TYPE , 



Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


*fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 


Print 


#fh, 



EXTENT 



"SELECT SEGMENT_NAME 
"FROM DB A_S EGMENTS T2 " 
"WHERE OWNER= ' PCPAYSYS ' AND" 
" SEGMENT_TYPE = ' TABLE ' " 
"AND EXTENTS > 1" 
"AND SEGMENT_NAME IN" 

" (SELECT SEGMENT_NAME FROM DBA_S EGMENTS T2 
" Where" 

" S EGMENT_NAME IN" 

n ^ ll 



EXTENTS | | 1 EXTENTS ' 



fhT - FreeFile 

Open App. Path & " \hwbtbl . 1st " For Input As #fhT 
Do Until EOF (fhT) 

Line Input #fhT, tBuf$ 

Print #fh, " " u tBuf$ 



Loop 






Close 


#fhT 




Print 


*fh, 


) ) - 


Print 


#fh, 


"Union" 


Print 


nth, 


"SELECT SEGMENT_NAME, SEGMENT 


Print 


#fh, 


"FROM DBA_SEGMENTS T2" 


Print 


#fh, 


"WHERE OWNER= • PCPAYSYS ' AND" 


Print 


#fh, 


"SEGMENT_TYPE = 'INDEX'" 


Print 


#fh, 


"AND EXTENTS > 1" 


Print 


#fh. 


"AND SEGMENT_NAM£ IN" 
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Print #fh, 



fhl = FreeFile 

Open App.Path & "\hwbidx. 1st " For Input As #fhl 
Do Until EOF (fhl) 

Line Input #fhl, tBuf$ 

Print #fh, " " & tBuf$ 



Loop 






Close 


#fhl 




Print 


#fh, 


it j « 


Print 


#fh, 




Print 


#fh, 


H ft 


Print 


#fh, 


"spool off" 


Print 


#fh, 


"spool &l\nof done .out" 


Print 


#fh. 


"select 'nofdone' from dual;" 


Print 


#fh, 


"spool off" 


Print 


#fh. 


"exit" 


Close 


#fh 





first, run the no_fix.sql file to generate 
a list of tables that the Health Check won't 
fix, but should be looked at. This will be 
generated into a no_fix.out file. 



fh = FreeFile 

Open App.Path & "\maint\no_fix.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\sqlplus pcpaysys/" & g_MaintPassword & " ® M & App.Path & 
" \maint\no_f ix . sql " & App.Path & "\maint" 
Close #fh 

1 clear the flag file 

rc = RemoveFile (App . Path & "\maint\nof done .out" ) 
ExecDOSCmd (App.Path & "\maint\no_fix.bat") 

frmStatus . lblTicker. Caption = RES (124) 

• make sure the prior step is complete before continuing 
Do Until Dir$ (App.Path & " \maint\nof done . out " , vbNormal) <> 
DoEvents 

Loop 



open the no_fix.out file, if there are any 
tables listed, copy the text to the log file 
and generate some warnings .... 



If FileLen (App. Path & "\maint\no_f ix.out" ) > 0 Then 
fh = FreeFile 

Open App.Path & "\maint\no_f ix . out " For Input As #fh 
Do Until EOF(fh) 

Line Input #fh, buf 

' strip out multiple spaces 

tl$ = buf 

t2$ = "" 

bSpace = False 

For kk = 1 To Len(tl$} 

If Mid$(tl$, kk, 1) <> " » Or (Mid$(tl$, kk, 1) = " " And bSpace = False) 

Then 

t2$ = t2$ & Mid$(tl$, kk, 1) 
End If 

If Mid$(tl$, kk, l) = » « Then 
bSpace = True 
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Else 

bSpace = False 
End If 



Next kk 



rc = WriteLogFile{RES<125) & Trim(t2$) & RESU26)) 
dWarningCount = dWarningCount + 1 

Loop 

Close #fh 
End If 



fh = FreeFile 

Open App.Path & " \maint\db_info .bat" For Output As #fh 
Print #fh, "set ORACLE_SID=:PCPW" 

Print #fh, g_szOracleHome & "\sqlplus pcpaysys/" & g__Maint Password & " ®" & App.Path & 
"\maint\db_info.sql " & App.Path & "\maint" 
Close #fh 



' clear the flag file 

rc = RemoveFile (App.Path & " \maint\inf odone . out" ) 
ExecDOSCmd (App.Path & " \maint\db_inf o . bat " ) 

• make sure the prior step is complete before continuing 
frmStatus . lblTicker .Caption = RES (127) 

Do Until Dir$ (App . Path & "\maint\infodone .out" , vbNormal) <> 
DoEvents 

Loop 



fh = FreeFile 

Open App.Path & "\maint\bld_anal . sql " For Output As #fh 
Print #fh, "set heading off" 
"set pagesize 400" 
"set pause off" 
"set space 0" 
"set termout off" 
"set feed off" 
"spool &l\analyze.sql" 



#fh, 
#fh, 
#fh, 
#fh, 
#fh, 
#fh, 



Print 
Print 
Print 
Print 
Print 
Print 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh f 
Print #fh, 
Print #fh, 



"SELECT 
"select" 



"From" 



'connect pcpaysys/" & g_MaintPassword & "' from dual;" 



•ANALYZE TABLE ' | | table__name | | 
• COMPUTE STATISTICS ; • " 



user_tables" 
"WHERE table name not 



fhT = FreeFile 

Open App.Path & "\hwbtbl . 1st" For Input As #fhT 
Do Until EOF (fhT) 

Line Input #fhT, tBuf$ 

Print #fh. " " & tBuf$ 

Loop 

Close #fhT 



Print #fh, 
Print #fh # 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh. 
Close #£h 



) 1 



« i it 

"select 'exit 1 from dual;" 
"spool off" 

"spool &l\analdone .out" 
"select * analdone' from dual;' 
"spool off" 
"exit" 
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fh = FreeFile 

Open App.Path & "\maint\bld_anal .bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh f g_szOracleHome & "\sqlplus pcpaysys/" & g_Ma in t Password & " ® M u App.Path & 
"\maint\bld_anal.sql * & App.Path & "\maint" 
Close #fh 



1 clear the flag file 

rc * RemoveFile(App. Path & " \ma in t\ anal done . out " ) 
ExecDOSCmd {App.Path & "\maint\bld_anal.bat") 

• make sure the prior step is complete before continuing 
frmStatus. lblTicker. Caption ■ RES (128) 

Do Until Dir$ (App.Path & "\maint\analdone .out " , vbNormal) <> 
Do Events 

Loop 

fh « FreeFile 

Open App.Path & M \maint\analyze . bat " For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\svrmgr23 ®" & App.Path & " \maint \^.;alyze . sql " 
Close #fh 

' if we've already analyzed the database today, skip it 
If g_HWBLASTANALYZE <> CDate (Formats (Now, "mm/dd/yy")) Then 
ExecDOSCmd (App.Path & "\maint\analyze.bat") 
rc ■ WriteLogFile < "HBW: Table/Index Analyze complete.") 

SaveSetting "PCPWOra", "HWB", "Last Analyze", Format$ (Now, "mm/dd/yy") 
End If 

• see if there's an xtra.sql file in the admin folder. If there is... run it 
' with SVRMGR23 . . . 

If Dir (App.Path & "\xtra . sql " , vbNormal) <> " " Then 
fh = FreeFile 

Open App.Path & "\maint\xtra.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\svrmgr23 @" & App.Path & "\xtra.sql" 
Close #fh 

ExecDOSCmd (App.Path & " \maint\xtra . bat " ) 
rc = WriteLogFile ("HBW: ADMIN\XTRA. SQL executed.") 

rc = RemoveFile (App . Path & "\maint\xtra.bat") 
End If 



fh = FreeFile 

Open App.Path k "\maint\f ix_tab . sql" For Output As #fh 

Print #fh, "/* FIND ALL TABLES IN MORE THAN " U g_dExtents & " EXTENT (S) WHICH SHOULD 

BE REORGANIZED */" 
Print #fh, 

Print »fh, "set termout off" 

Print #fh, "set echo off 

Print #fh, "set heading off" 

Print #fh, "set pagesize 0" 

Print #fh, "set pause off" 

Print #fh, "set space 0" 

Print #fh, "set verify off" 

Print #fh, "set feed off" 

Print #fh, " 

Print #fh. "spool &l\Fix_tab . out" 

Print #fh, " 

Print #fh, "column segment_name format a30" 

Print #fh, "column Tl .BLOCKS*2048+10240 format 999999999999999 heading ' 

Print #fh, "column Tl . tablespace_name format a30" 

Print #fh, " 
Print #fh, 
Print #fh, 

Print #fh, "SELECT S EGMENT^NAME , Tl . BLOCKS*2048+10240 , Tl . TABLES PACE_NAME" 

Print *fh, "FROM DBA_TABLES Tl, " 
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Print ttfh, " DBA_SEGMENTS T2" 

Print #fh, "WHERE T2 . OWNER =' PC PAYS YS » AND" 

Print #fh, " S EGMENT_TY P E = 'TABLE' " 

Print #fh, "AND EXTENTS > " & g_dExtents 

Print #fh, "AND Tl . TABLE_NAME = T2 . SEGMENT_NAME" 

Print #fh, "AND SEGMENT_NAME NOT IN" 

Print #fh, "(SELECT SEGMENT_NAME FROM DBA_SEGMENTS T2 " 

Print #fh, " Where" 

Print #fh, " S EGM ENT_NAM E IN" 

Print #fh, " <" 



fhT = FreeFile 

Open App.Path ft " \hwbtbl . 1st " For Input As #fhT 
Do Until EOF (fhT) 

Line Input #fhT, tBuf$ 

Print #fh, " " & tBuf $ 

Loop 

Close #fhT 



Print #fh. 
Print #fh. 
Print #fh, 
Print #fh, 
Print 
Print 
Print #fh, 
Print #fh, 
Print #fh, 
Print #fh, 
Close #fh 



#fh, 
#fh f 



)•) - 

"ORDER BY SEGMENT_NAME " 



"spool off" 

"spool &1\ tabdone .out" 
"select 'tabdone' from dual;" 
"spool off" 

» n 

"EXIT" 



fh = FreeFile 

Open App.Path ft "\maint\fix_tab.bat" For Output As #fh 
Print fcfh "set ORACLE SID=PCPW" 

Print #fh, g_szOracleHome ft "\sqlplus pcpaysys/" ft g,MaintPassword ft " ft App.Path ft 
"\maint\fix_tab.sql " & App.Path ft "\maint" 
Close #fh 



• clear the flag file 

rc = RemoveFile (App.Path ft " \maint\ tabdone . out " ) 
ExecDOSCmd (App.Path ft "\maint\fix_tab.bat") 

• make sure the prior step is complete before continuing 
frmStatus.lblTicker .Caption = RES (129) 

Do Until Dir$ (App.Path ft " \maint\tabdone . out", vbNormal) 
DoEvents 

Loop 



rc = WriteLogFile(RES(130) ) 
FixTables = True 



End Function 

Private Function CheckPerfO As Boolean 



Dim fh As Integer 

Dim fhTable As Integer 

Dim buf As String 

Dim recbuf As bufLayout 

Dim di As New clsDisklnfo 
Dim freebytes As Double 

If Dir$ (App.Path ft "\perf.sql", vbNormal) = "" 
rc = WriteLogFile (RES (131) ) 
WriteNoteOfTheDay (RES(llO)) 
Bailout (True) 
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End If 



fh a FreeFile 

Open App.Path & "\getperf.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW 

Print #fh, g_szOracleHome & "\sqlplus pcpaysys/" & g_MaintPassword & " ®" & App.Path & 
"\perf.sql " & App.Path & "\" 
Close #fh 

• clear the flag file 

rc sr RemoveFile (App. Path & " \perf done . out " ) 
ExecDOSCmd (App.Path & "\getperf .bat " ) 

• make sure the prior step is complete before continuing 
frmStatus . lblTicker. Caption = RES (132) 

Do Until Dir$ (App.Path & " \perf done .out" , vbNormal) <> 
DoEvents 

Loop 

rc a RemoveFile (App. Path & "\getperf .bat") 

On Error GoTo NoPerfTable 
fhTable = FreeFile 

Open App.Path & "\Perf.tbl" For Input As #fhTable 
On Error Go To 0 

fh b FreeFile 

On Error GoTo NoPerfLog 

Open App.Path & n \perf .out" For Input As #fh 

On Error GoTo 0 



loop through the dynamic array. If there are any 
warnings, simply increment the warning flag 
if any serious errors, set the error flag 



Do Until EOF(fh) 



read the next line 



Line Input #fh, buf 



build the input buffer by taking the criteria 
and the actual amount from the perf.out file (fh) 
and the warning and error values from the 
perf.tbl file (fhTable) 



recbuf . ItemType = Trim (Mid$ (buf , 1, 1)) 
recbuf . ItemName a Trim (Mid$ (buf , 2, 30)) 
recbuf .ActualValue = Trim (Mid$ (buf , 32, 7)) 
recbuf . CompareType = " " 
recbuf . WarningValue a "" 
recbuf . ErrorValue = 

• rewind the performance criteria lookup table 
Seek # fhTable, 1 

dCriteriaFound = False 

• throw away first two header lines 
Line Input #fhTable, buf 2$ 

Line Input #fhTable, buf 2$ 
Do Until EOF (fhTable) 

Line Input #fhTable y buf 2$ 

If Trim(Mid$(buf2$, 3, 30)) = Trim (recbuf . ItemName) Then 
recbuf .CompareType - Mid$(buf2$, 34, 1) 
recbuf .WarningValue = Trim (Mid$ (buf 2$ , 36, 5)) 
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recbuf .ErrorValue = Trim(Mid$ (buf 2$, 42, 5)) 
dCriteriaFound = True 
End If 

Loop 

If dCriteriaFound = False Then 

rc = WriteLogFile(RES(133) & recbuf . ItemName & RESU34)) 
g_dWarningCount = g_dWamingCount + 1 

Else 



• parse the line, and look for warnings and alerts 



If g_HWBTables = 1 And recbuf . I temType = "T" Then 
• tablespaces 

If recbuf .CompareType = "L M Then 

If Val (recbuf . ActualValue) > Val (recbuf . ErrorValue) Then 

rc = WriteLogFile (RES (135) & Trim ( recbuf . ItemName) & RES (136) ) 
g_dErrorCount = g_dErrorCount + 1 

Else 

If Val (recbuf .ActualValue) > Val (recbuf . WarningValue) Then 

rc = WriteLogFile (RES (137) & Trim ( recbuf . ItemName) & RES (138)) 
g_dWarningCount = g_dWarningCount + 1 
End If 
End If 

Else 

If Val (recbuf .ActualValue) < Val (recbuf . ErrorValue) Then 

rc = WriteLogFile (RES (135) & Trim ( recbuf . ItemName) & RES (136)) 
g_dErrorCount = g_dErrorCount + 1 

Else 

If Val (recbuf .ActualValue) < Val (recbuf .WarningValue) Then 

rc = WriteLogFile (RES (137) & Trim ( recbuf . ItemName) & RES(138)) 
m_warnings = m_warnings + 1 
g_dWamingCount = g_dWarningCount + 1 
End If 
End If 
End If 
End If 

If g_HWBPerf = 1 And recbuf . I temType = "P" Then 
• performance criteria 
If recbuf .CompareType = "L" Then 

If Val (recbuf .ActualValue) > Val (recbuf . ErrorValue) Then 

rc = WriteLogFile (RES (139) & Trim (recbuf . ItemName) & RES (140)) 
g_dErrorCount = g_dErrorCount + 1 

Else 

If Val (recbuf .ActualValue) > Val (recbuf . WarningValue) Then 

rc = WriteLogFile (RES (141) & Trim (recbuf . ItemName) & RES (142)) 
g_dWarningCount ■ g_dWamingCount + 1 
End If 
End If 

Else 

If Val (recbuf .ActualValue) < Val (recbuf . ErrorValue) Then 

rc = WriteLogFile (RES (139) & Trim (recbuf . ItemName) & RES (140)) 
g_dErrorCount = g_dErrorCount + 1 

Else 

If Val (recbuf .ActualValue) < Val (recbuf .WarningValue) Then 

rc = WriteLogFile (RES (141) & Trim (recbuf . ItemName) & RES (142)) 
m_warnings = m_wamings + 1 
g_dWarningCount = g_dWarningCount + 1 
End If 
End If 
End If 
End If 

End If 
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Loop 



' close performance log file 



Close ftfhTable 
Close #fh 



check physical disk space, if less than 5 MEG free 
• alert the user 



For i = 1 To 26 

If di.DriveType(Chr$(64 + i) ) =3 Or di . DriveType (Chr$ { 64 + i) ) =4 Then 
di. PathName * Chr$(64 + i) * ":\" 
freebytes = GetDiskFreeSpaceLarge (di . PathName) 



• adjust freebytes for any dbfs that are already 

• targetted for this drive 



If freebytes > 0 And freebytes < (g_MEGFree * 1000000) Then 



■ warn the user 



rc = WriteLogFile (RES (143) & di . PathName & RES (144) & Formats ( freebytes , 
"#,##0") & RES(145) ) 

g_dWarningCount = g_dWarningCount + 1 
End If 
End If 

Next i 

On Error GoTo 0 
CheckPerf = True 

rc = WriteLogFile (RES (14 6) ) 
Exit Function 

NoPerf Table: 

On Error GoTo 0 
rc = WriteLogFile (RES (147) ) 
g_dErrorCount = gjdErrorCount + 1 
Exit Function 

NoPerf Log: 

Close #fhTable 

On Error GoTo 0 

rc = WriteLogFile (RES (148) ) 

g_dErrorCount = g_dErrorCount + 1 

Exit Function 

End Function 

Private Function CheckFragAlarms { ) As Boolean 

Dim fh As Integer 

Dim fh2 As Integer 

Dim buf As String 

Dim tName As String 

Dim tSize As Double 

Dim tTblSpaceName As String 

Dim tTblSpaceSize As Double 



open frag alarm log file 
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fh * FreeFile 

On Error GoTo NoAlarmLog 

Open App.Path & "\maint\f ix_tab .out" For Input As #fh 
On Error GoTo 0 



if any entries, FIX * EM 



If LOF(fh) > 0 Then 



for each entry in the alarm log file 



Do Until EOF(fh) 

bExportOJc = False 
bDropOk = False 
blmportOk = False 

Line Input #fh, buf 



• get the table name and the required disk space 

• for the export file 



tName = Trim (Left$ (buf , 30)) 

tSize = Val(Trirn(Mid$(buf, 31, 16))) 

tTblSpaceName = Trim (Mid$ (buf , 47, 30)) 



' make sure there's enough free space in the 
1 tablespace before continuing 



fh2 = FreeFile 

Open App.Path & "\chxfrag.bat" For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome & "\sqlplus pcpaysys/" & g_MaintPassword U " @" & 
App.Path & H \chxfrag.sql " & tName & " " & App.Path 
Close #fh2 

rc = RemoveFile (App. Path & "\chkf done .out") 
ExecDOSCmd (App.Path & "\chkfrag.bat") 

' make sure the prior step is complete before continuing 
frmStatus.lblTicker. Caption = RES (149) & tName & RES (150) 
Do Until Dir$ (App . Path & " \chxf done .out" , vbNormal) <> 
DoEvents 

Loop 

fh2 = FreeFile 

Open App.Path & " \Chk_sp . out " For Input As #fh2 
Line Input #fh2, tempBuf$ 
Close #fh2 

If Val(Trim(tempBuf$) ) = 0 Then 

rc = WriteLogFile(RES(151) & tTblSpaceName & RES (152) & tName & RES (153)) 

g_dWarningCount = g_dWarningCount + 1 

GoTo Next I tern 
End If 

rc = RemoveFile (App .Path & "\chkfrag.bat") 

rc = WriteLogFile(RES(l54) & tName & " ( ■■ & Format$ (tSize, "#,##0 rt ) & RES (155)) 



frmStatus .lblTicker. Caption = RES (156) & tName 



f rmStatus . Refresh 
DoEvents 



find a drive that can handle it 



szDrive$ =* FindSpace ( tSize, "C:") 
If szDrive$ = Then 

rc = WriteLogFile(RES(157) & Format$ (tSize, "#,##0") & RES(158)> 

ChecIcFragAlarms = False 

g_dErrorCount = g_dErrorCount + 1 

Exit Function 

Else 

rc = WriteLogFile(RES<159) & tName & RES (160) & szDrive) 
End If 



KEY ( 1 || 



generate DDL 



Primary Key 



fh2 = FreeFile 
Open App.Path & 



Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2. 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
column_name" 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print *fh2. 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 



'\maint\gen_pk .sql" For Output As #fh2 



"set heading off" 
"set pagesize 0" 
"set pause off" 
"set space 0" 
"set termout off" 
"set verify off" 
"set feed off" 

"spool " & App.Path & "\maint\pk . sql" 

"SELECT 'connect pcpaysys/" & g_Maint Password & from dual;" 

"SELECT 'spool &1\" & tName & "_pk.out" & from dual;" 

"SELECT ' ALTER TABLE ' || UPPER ( 1 " & tName & "«) |j * ADD (PRIMARY 

" From " 

user_cons_columns Tl," 
" user_constraints T2" 
"Where" 

Tl.table_name = UPPER (' " & tName & "•)" 
AND constraint_type = ' P ' " 

AND Tl .constraint_name = T2 . constraint_name" 
" AND position si" 

M I It 

" SELECT" 

" • , ' | | column_name" 
"From" 

" user__cons_columns Tl," 
" user_constraints T2" 
"Where" 

Tl.table_name = UPPER ( 1 " & tName & " • ) " 

AND constraint_type = ' P ,M 
" AND Tl .const raint__name = T2 . const raint_name" 
" AND position > 1" 
"Order By" 
" position" 
■I i ii 

"SELECT '));'" 
"From DUAL" 



"spool off" 

"spool " & App.Path & "\maint\gpkdone.out" 
"select * gpkdone' from -'ual;" 
"spool off" 



Print #fh2, "exit" 
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Close #fh2 



fh2 = FreeFile 

Open App.Path & "\maint\gen_j>k .bat" For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome & "\sqlplus pcpaysys/" & g_MaintPassword & " @" & 
App.Path & "\maint\gen_pk,sql ■ & App.Path & "\maint" 
Close #fh2 



rc = RemoveFile (App.Path & "\maint\gpkdone.out") 
ExecDOSCmd (App.Path & "\maint\gen^pk . bat " ) 

' make sure the prior step is complete before continuing 
frmStatus.lblTicker. Caption « RES (161) & tName & RES (150) 
Do Until Dir$ (App. Path & "\maint\gpkdone . out" , vbNormal) <> "" 
DoEvents 

Loop 



' Make sure the gen_jpk.bat process compel ted w/o errors 



bPk = True 

If Dir$ (App. Path & " \maint\pk . sql " , vbNormal) =» " " Th*^ 
bPk = False 

Else 

If FileLen (App. Path & " \maint\pk . sql " ) = 0 Then 

bPk = False 
End If 
End If 

If bPk = False Then 

rc * WriteLogFile(RES(l62) & tName & RES (163)} 

g_dErrorCount = g_dErrorCount + 1 

WriteNoteOfTheDay (RES (110) ) 

GoTo Next Item 
End If 



rc = WriteLogFile (RES (164) & tName & RES (165) ) 



Foreign Key(s) 



fh2 = FreeFile 
Open App . Path & 



'\maint\gen__fkl . sql" For Output As #fh2 



Print 
Print 
Print 
Print 
Print 
Print #fh2. 
Print #fh2, 
Print #fh2, 
Print #fh2, 



#fh2. 
#fh2, 
#fh2, 
#fh2, 
#fh2, 



"set heading off" 
"set pagesize 0" 
"set pause off" 
"set space 0" 
"set termout off" 
"set verify off" 
"set feed off" 

"spool " & App.Path & "\maint\fkl.sql" 

"SELECT 'spool " & App.Path & "\maint\f k . sql 1 from dual;' 



Print 
Print 
Print 
Print 
Print 
Print 
Print 



*fh2, 
#fh2, 
#fh2, 
#fh2, 
#fh2, 
#fh2, 
*fh2, 



"SELECT 'set 
"SELECT 'set 
"SELECT 'set 
"SELECT 'set 
"SELECT 'set 
"SELECT 'set 
"SELECT 'set 



heading off from dual;' 
pagesize 0' from dual;" 
pause off from dual;" 
space 0' from dual;" 
termout off from dual;' 
verify off from dual;" 
feed off from dual;" 



Print #fh2, "SELECT 'select •' connect pcpaysys/" & g_MaintPassword & "•' from 
dual ; 1 from dual ; " 

Print #fh2, "SELECT 'select ''spool " & App.Path & "\maint\" & tName & 
"_fk.log" & "■' from dual;' from dual;" 

Print #fh2, 

Print #fh2, Generate all Parent Foreign Keys */" 

Print #fh2, " 
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Print #fh2, "SELECT '3" 4 App.Path & "\maint\Gen_f k2 . sql • || UPPER & tName 
4 " *) || ' » || const rain t_name u 4 " || • ' || ' " 4 App.Path & "\maint ,M 
Print #fh2, "From" 
Print #fh2, "user_constraints" 
Print #fh2, "Where" 

Print #fh2, "table_name « UPPERC" 4 tName 4 M 1 ) " 
Print #fh2, "AND constraint_type « ' R ' " 
Print #fh2, "ORDER BY constraint_name" 
Print #fh2, 
Print #fh2, 

Print #fh2, ■/* Generate all Children Foreign Keys */" 
Print #fh2, 

Print #fh2, "SELECT 4 App.Path & " \maint\Gen_f k2 . sql ' || tl . table_name j| 
• • [| tl .constraint_name" 4 " || * • j| "• & App.Path 4 "\maint'" 
Print #fh2, "From" 
Print #fh2, "user_constraints Tl," 
Print #fh2, "user_constraints t2" 
Print #fh2, "Where" 

Print #fh2, " t2 . table_name = '" 4 tName & "' and t2 .constraint_type = 'P'" 
Print #fh2, "AND t2 . constraint_name = tl . r_cons train t_name" 
Print #fh2, "ORDER BY tl. table name" 
Print #fh2. "/" 

Print #fh2, "SELECT 'select "spool off* FROM dual • from dual;" 
Print #fh2, "" 

Print &fh2, "SELECT 'spool off FROM dual;" 

Print #fh2, "SELECT 'select ' * spool off" FROM dual;' from dual;" 

Print #fh2, "SELECT 'spool " 4 App.Path 4 "\maint\ f k2done . out ' from dual;" 

Print #fh2, "SELECT 'select ''fJcSdone' 1 from dual;' from dual;" 

Print #fh2, "SELECT 'spool off FROM dual;" 

Print #fh2, "SELECT 'exit' FROM dual;" 

Print #fh2, 

Print #fh2, "spool off" 

Print #fh2, "spool " 4 App.Path i " \maint\f kldone . out " 
Print f*fh2, "select ' fkldone' from dual;" 
Print #fh2, "spool off" 
Print #fh2, "exit" 
Close #fh2 

fh2 = FreeFile 

Open App.Path & "\maint\gen_fkl.bat" For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome 4 "\sqlplus pcpaysys/" 4 g_MaintPassword & " 9" & 
App.Path 4 "\maint\gen_f Jcl . sql" 
Close #fh2 

' clear the flag file 

rc » RemoveFile (App. Path 4 "\maint\f kldone .out " ) 
ExecDOSCmd (App.Path & "\maint\gen_fkl.bat") 

rc = WriteLogFile(RES{166} 4 tName 4 RES {167} ) 

fh2 = FreeFile 

Open App.Path 4 * \maint\gen_fk.bat" For Output As &fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome 4 "\sqlplus pcpaysys/" 4 g_MaintPassword 4 " @" 4 
App.Path 4 "\maint\fkl.sql" 
Close *fh2 

' make sure the prior step is complete before continuing 
frmStatus.lblTicker. Caption * RES (168) 4 tName 4 RES (169) 
Do Until Dir$ (App.Path & " \maint\f kldone .out" , vbNormal) <> "" 
DoEvents 

Loop 



Make sure the gen_fkl.bat process compelted w/o errors 



bFK = True 



If Dir$ (App.Path & "\maint\f kl . sql" , vbNormal) = Then 
bFK = False 

Else 

If FileLen (App.Path & tt \maint\fkl. sql") = 0 Then 

bFK = False 
End If 
End If 

If bFK = False Then 

rc = WriteLogFile (RES (170) & tName & RES (171)) 

g_dErrorCount & g_dErrorCount + 1 

WriteNoteOfTheDay (RES (110) ) 

GoTo Next I tern 
End If 

rc = RemoveFile (App.Path & " \maint\fk2done .out "J 
ExecDOSCmd (App.Path & "\maint\gen_fk.bat") 

' make sure the prior step is complete before continuing 
frmStatus.lblTicker. Caption = RES (168) & tName & RES (172) 
Do Until Dir$ (App.Path & " \maint\f k2done .out" , vbNormal) <> 
DoEvents 

Loop 



' Make sure the gen_fk.bat process compelted w/o errors 



bFK = True 

If Dir$ (App.Path & "\maint\f k . sql" , vbNormal) = MM Then 
bFK = False 

Else 

If FileLen (App. Path & "\maint\fk . sql" ) = 0 Then 

bFK - False 
End If 
End If 

If bFK = False Then 

rc = WriteLogFile (RES (173) & tName) 

g_dWarningCount = g_dWarningCount + 1 
End If 

rc = WriteLogFile (RES (174) & tName & RES (175)) 



do the export 



' create exp.sql in the maint folder and execute it using 

• SVRMGR23 (NT) , the export statement looks like... 
fh2 = FreeFile 

Open App.Path & "\maint\export.bat" For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome & "\exp73 pcpaysys/" U g_MaintPassword & " 
constraints=n tables=:(" U tName & ") file = " & szDrive$ & "\export\" & tName & " .dmp log=" 
& g_szMaint & "\" & tName & "_exp.log" 

Close *fh2 

• now, execute the bat file just created in the step above 
bDir = False 

If Dir$ (szDrive$ & "\export" , vbDirectory) = "" Then 

MkDir szDrive$ & "\export" 

bDir = True 
End If 

ExecDOSCmd (App.Path & " \maint\ export . bat" ) 



■ Make sure the export.bat process compelted w/o errors 



fhLog = FreeFile 

On Error GoTo No Export Log 

Open g_szMaint & "\" & tName & "_exp.log" For Input As #fhLog 
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On Error GoTo 0 

bOk = False 

Do Until EOF(fhLog) 

Line Input #fhLog, buf$ 

If Trim(buf$) = "Export terminated successfully without warnings." Then 

bO)c * True 
End If 

Loop 

Close #fhLog 
If Not bOk Then 

rc » WriteLogFile(RES (176) & g_szMaint & "\" 4 tName & RES (177) ) 
g_dErrorCount - g_dErrorCount + 1 
WriteNoteOfTheDay {RES (110) ) 
GoTo Next I tern 
End If 

b Export Ok = True 

rc = WriteLogFile(RES(178) ) 

GoTo DropTheTable 



On Error GoTo 0 
rc = WriteLogFile(RES(179) ) 
g__dError Count == g_dErrorCount + 1 
WriteNoteOfTheDay (RES(llO)) 
GoTo Nextltem 



drop the table 



fh2 = FreeFile 

Open App.Path & "\maint\drop, sql" For Output As #fh2 
Print #fh2, "connect pcpaysys/" & g_MaintPassword 
Print &fh2, "spool '" & App.Path & "\maint\drop.log'" 
Print #fh2, "DROP TABLE " & tName & " CASCADE CONSTRAINTS ; " 
Print #fh2, "ALTER TABLESPACE " & tTblSpaceName & " COALESCE;" 
Close #fh2 

fh2 = FreeFile 

Open App.Path & "\maint\drop.bat" For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome & "\svrmgr23 ®" & App.Path & " \maint\drop . sql " 
Close #fh2 

ExecDOSCmd (App.Path & "\maint\drop.bat") 



• Make sure the drop. bat process compelted w/o errors 



fhCheck = FreeFile 
s Count = 0 

Open App.Path & " \maint\drop . log" For Input As #fhCheck 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Trim(buf$) = "Statement processed." Then 



Loop 

Close #fhCheck 

If sCount <> 2 Then 

rc * WriteLogFile(RES{lSO) & tName) 
g_dErrorCount = g_dErrorCount + 1 
WriteNoteOfTheDay (RES (110) ) 
GoTo Nextltem 



No Export Log: 



DropTheTable : 



sCount = sCount + 1 



End If 
DoEvents 
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End If 



bDropOk a True 

rc = WriteLogFile{RES (181) & tName & RES (182)) 



• import the exported data 



fh2 a FreeFile 

Open App.Path & "\maint\import.bat" For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome & "\imp73 pcpaysys/" & g_Maint Pas sword & H 
tables=C & tName & w ) file=" & szDrive$ & "\export\ M & tName & w .dmp log=" & g_szMaint & 
"\ H & tName & "_imp.log" 

Close #fh2 

ExecDOSCmd (App.Path & "\maint\import.bat") 



' Make sure the iraport.bat process compelted w/o errors 



fhCheck ■ FreeFile 

Open App.Path & " \maint\" & tName fit "_imp.log" For Input As #fhCheck 
bOk = False 
Do Until EOF(fhCheck) 

Line Input #fhCheck f buf$ 

If Trim(buf$) = "Import terminated successfully without warnings." 

Then 

bOk = True 
End If 
DoEvents 

Loop 
Close #fhCheck 
If bOk = False Then 

rc = WriteLogFile (RES (183) & tName) 

g_dErrorCount = g_dErrorCount + 1 

WriteNoteOfTheDay (RES(llO)) 

Bailout (False) 
End If 

blmportOk = True 

rc = WriteLogFile (RES (184) } 

f rmStatus . Picturel (2) .Visible = True 
f rmStatus . Label2 (2) . FontBold = False 
f rmStatus. Label2 (3) . FontBold = True 
f rmStatus . Refresh 



' use generated DDL to recreate constraints 



fh2 = FreeFile 

Open App.Path & "\maint\ddlpk . bat" For Output As &fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2 ( g_szOracleHome & "\svrmgr23 @" & App.Path U " \maint\pk . sql" 
Close #fh2 

ExecDOSCmd (App.Path & " \maint\ddlpk.bat") 



Make sure the ddlpk.bat process compelted w/o errors 



fhCheck = FreeFile 

Open App.Path & "\maint\" & tName & "_pk.out" For Input As #fhCheck 
bOk « False 
Do Until EOF (fhCheck) 

Line Input #fhCheck, buf$ 
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If VCase$ (Trim fbuf$) ) * "STATEMENT PROCESSED . " Then 

bOk = True 
End If 
DoEvents 

Loop 
Close #fhCheck 
If bOk = False Then 

rc = WriteLogFile (RES (185) & tName & RES (186) ) 

g_dErrorCount = g_dError Count + 1 

WriteNoteOfTheDay (RES (110)) 

Bailout (False) 
End If 

rc = WriteLogFile (RES (187) ) 
fh2 = FreeFile 

Open App.Path & " \maint \ddlf k . bat M For Output As #fh2 
Print #fh2, "set ORACLE_SID=PCPW" 

Print #fh2, g_szOracleHome & w \svrtr.gr23 ®" & App.Path & " \maint\f k . sql " 
Close #fh2 

ExecDOSCmd (App.Path & "\maint\ddlfk.bat") 



Make sure the ddlfk.bat process compelted w/o errors 
there should be one 'Table altered' for each foreign key 



On Error GoTo NoForeignKeys 
fhCheck = FreeFile 
bOk = True 

Open App.Path & "\maint\" & tName & "_fk.log" For Input As #fhCheck 
On Error Resume Next 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Mid(buf$, 1, 4) = "ORA-" Then 
bOk = False 

End If 

DoEvents 

Loop 

Close ttfhCheck 

On Error GoTo 0 

If bOk = False Then 

rc = WriteLogFile (RES (185) & tName & RES (188) ) 

g__dErrorCount - g_dErrorCount + 1 

WriteNoteOfTheDay (RES (110)) 

Bailout (False) 
End If 

rc = WriteLogFile (RES (189)) 
GoTo Next I tern 

NoForeignKeys : 

On Error GoTo 0 

rc = WriteLogFile (RES (190) L tName) 

Nextltem: 

On Error GoTo 0 



' cleanup and get ready for the next table 



If Dir$ (szDrive$ & "\export\" U tName & " .dmp" , vbNormal) <> " H Then 
If blmportOk = True Then 

rc as RemoveFile (szDrive$ & "\export\" & tName & ".dmp") 
' If bDir Then 

1 RmDir szDrive$ & "\export" 

•End If 
End If 
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End If 



Loop 

frmStatus .lblTicker. Caption = "" 
rc = WriteLogFile(RES(191) ) 

Else 

rc - WriteLogFile(RES(192) ) 
End If 

frmStatus . Picturel (3) .Visible = True 
frmStatus. Label2 (3) . FontBold = False 
frmStatus. Label2 (4) . FontBold = True 
frmStatus . Refresh 



» close frag alarm log file 



Close #fh 

On Error GoTo 0 



1 now, check to see if any indexes need to be 
1 rebuilt . . . 



fh2 = FreeFile 

Open App.Path & "\maint\f ixidx. sql" For Output As #fh2 



Print 


#fh2, 


"/* FIND 


ALL TABLES IN MORE THAN " & g_dExtents & " EXTENT WHICH 


REORGANIZED */" 








Print 


#fh2. 


"set termout off" 




Print 


#fh2, 


"set echo off" 




Print 


#fh2, 


"set heading off" 




Print 


#fh2, 


"set pagesize 0" 




Print 


#fh2, 


"set pause off" 




Print 


#fh2, 


"set space 0" 




Print 


#fh2, 


"set verify off" 




Print 


#fh2, 


"set feed off" 




Print 


#fh2, 


•1 n 






Print 


#fh2, 


"spool " 


& App.Path & "\maint\Rbld_idx.sql" 


Print 


#fh2, 


it n 






Print 


#fh2, 


"SELECT ' 


'spool " & App.Path & "\maint\rbld_idx.log' from dual;" 


Print 


#fh2, 


"SELECT ■ 


ALTER TABLES PACE 


INDEX_DATA1 COALESCE ; ' FROM DUAL" 


Print 


#fh2, 








Print 


#fh2, 


"SELECT 1 


'ALTER TABLESPACE 


INDEX__DATA2 COALESCE;' FROM DUAL" 


Print 


#fh2, 








Print 


#fh2, 


"SELECT ' 


'ALTER TABLESPACE 


INDEX JDATA3 COALESCE;' FROM DUAL" 


Print 


#fh2, 


It J H 






Print 


#fh2, 


it n 






Print 


#fh2. 


ii n 






Print 


#fh2, 


"SELECT 


•ALTER INDEX ' | | 


SEGMENT_NAME | | ' REBUILD • " 


Print 


#fh2, 


" | | 1 STORAGE ( INITIAL 1 | | 


Tl . BYTES | | ' NEXT • | | 



(2048*FLOOR(T1. BYTES/8192) ) " 

Print #fh2, "|| ') TABLESPACE ' || Tl . TABLES PACE_NAME || 

Print #fh2, "FROM DBA_SEGMENTS Tl" 

Print #fh2, "Where" 

Print #fh2, "SEGMENT_TYPE = 'INDEX'" 

Print #fh2, "AND OWNER = ' PCPAYSYS ' " 

Print #fh2, "AND EXTENTS > " & g_dExtents 

Print #fh2, "AND SEGMENT_NAME NOT IN" 

Print #fh2 f " (" 

fhl - FreeFile 
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Open App.Path & "\hwbidx . 1st M For Input As # 

Do Until EOF {f hi) 

Line Input #fhl, tBufS 

Print #fh2, " M & tBufS 

Loop 

Close #fhl 



Print 


#fh2. 


Print 


#fh2, 


Print 


#fh2. 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2. 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2. 


"Print 


#fh2. 


Print 


#fh2, 


Print 


#fh2. 


Print 


#fh2. 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2. 


Print 


#fh2. 


Print 


#fh2, 


Print 


#fh2, 


Print 


#fh2 f 


Print 


#fh2, 


Print 


#fh2, 



T2 . TAB L E S P AC E_N AM F * 



) " 

"AND Tl. BYTES < " 
" (SELECT SUM (BYTES) " 
"FROM DBA_FREE_S PACE T2 " 
"WHERE Tl . TABLES P AC E_NAME 
"ORDER BY SEGMENT_NAME" 
■/" 

"SELECT 'spool off FROM dual;" 

"SELECT -spool - & App.Path & "\maint\rbldone . out • from dual;" 
"SELECT 'select '•rbldone" FROM dual ; from dual;" 
"SELECT 'spool off FROM dual;" 

"SELECT 'exit'- FROM dual;" 

n « 

"spool off" 

It M 

"spool " & App.Path St "\maint\Alrt_rbld.out" 

"SELECT SEGMENT_NAME || ' ** Can not rebuild - Not enough Space 

"FROM DBA_SEGMENTS Tl" 

"Where" 

"SEGMENT_TYPE = 1 INDEX' " 
"AND OWNER = » PCPAYSYS » " 
"AND EXTENTS > " & g_dExtents 
"AND SEGMENT_NAME NOT IN" 
(" 



fhl = FreeFile 

Open App.Path & "\hwbidx . 1st" For Input As #fhl 

Do Until EOF (fhl) 

Line Input #fhl, tBuf$ 

Print #fh2, " M & tBuf$ 

Loop 

Close #fhl 



Print #fh2. 
Print #fh2, 
Print #fh2, 
Print #fh2. 
Print #fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2, 



) » 

"AND Tl. BYTES >" 
" (SELECT SUM (BYTES) " 
"FROM DBA_FREE_S PACE T2 " 
-WHERE Tl. TABLES PACE_NAME 
"ORDER BY SEGMENT_NAME" 



T2 .TABLES PACE_NAME) 1 



Print #fh2, 
print #fh2. 
Print *fh2, 
Print #fh2, 
Print #fh2, 
Print #fh2. 
Print #fh2, 
Close #fh2 



"spool off" 

"spool " & App.Path & "\maint\idxdone.out" 
"select 'idxdone' from dual;" 
"spool off" 

"SELECT 'exit' FROM dual;" 

n M 

"EXIT" 



fh2 = FreeFile 

Open App.Path & "\maint\fix_idx.bat" For Output As #fh2 

& »\maint\fix_idx.sql" 
Close #fh2 
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rc = RemoveFile (App. Path & "\maint\idxdone .out " ) 
ExecDOSCmd (App. Path & "\maint\fix_idx.bat") 



' make sure the prior step is complete before continuing 
frmStatus.lblTicker. Caption = RES (193) 

Do Until Dir$ (App. Path & "\maint\idxdone.out" , vbNormal) <> 
DoEvents 

Loop 



' Make sure the fix_idx.bat process compel ted w/o errors 



If Dir$ (App. Path & w \maint\rbld_idx. sql" , vbNormal) = " M Then 

rc = WriteLogFile(RES(194) ) 
* g_dWamingCount = g_dWarningCount + 1 

WriteNoteOfTheDay (RES (110) ) 

Else 

* before we run the rbld_idx.sql script, open it and strip out the index names 
fhldxName » FreeFile 

Open App. Path & "\maint\rbld_idx . sql" For Input As # fhldxName 
Line Input # fhldxName, f hIdxName_buf $ 
Do Until EOF (fhldxName) 

If Mid$ (fhIdxName_buf$, 1, 12) = " ALTER INDEX " Ther. 

rc = WriteLogFile(RES(195) & Mid$ ( f hldxName^buf $ , 13)) 

End If 

Line Input tffhldxName, f hIdxName_buf $ 

Loop 

Close tffhldxName 
fh2 = FreeFile 

Open App. Path & " \maint\Rbld_idx . bat " For Output As #fh2 
Print #fh2, "set ORACL£_SID=PCPW" 

Print #fh2, g_szOracleHome & "\sqlplus pcpaysys/" & g_MaintPassword & " @" & 
App. Path & "\maint\Rbld_idx. sql" 
Close #fh2 

rc = RemoveFile (App. Path & "\maint\rbldone.out" ) 
ExecDOSCmd (App. Path & "\maint\Rbld_idx.bat 

' make sure the prior step is complete before continuing 
frmStatus.lblTicker. Caption = RES (196) 

Do Until Dir$ (App. Path & " \maint \rbldone . out " , vbNormal) <> 
DoEvents 

Loop 



TODO: Make sure the rbld_idx.bat process compelted w/o errors 



fhCheck ■ FreeFile 

Open App. Path & "\maint\rbld_idx . log" For Input As #fhCheck 
bOk = True 

Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Mid(buf$, 1, 4) = "ORA-" Then 

bOk = False 
End If 
DoEvents 

Loop 
Close ttfhCheck 
If bOk = False Then 

rc = WriteLogFile(RES(197) ) 

g_dErrorCount = g_dErrorCount + 1 

WriteNoteOfTheDay (RES(llO)) 

BailOut (False) 
End If 

rc = WriteLogFile(RES(198) ) 
End If 
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frmStatus .Picturel (4) .Visible = True 
frmStatus.Label2 (4) .FontBold = False 
frmStatus .Refresh 

CheckFragAlarms = True 
Exit Function 

NoAlarmLog: 

On Error GoTo 0 

rc = WriteLogFile (RES (199) ) 

g_dErrorCount ■ g_dErrorCount + l 

CheckFragAlarms = False 

Exit Function 

End Function 

Function FindSpace (spaceNeeded As Double, startingDrive As String) As String 

Dim di As New clsDisklnfo 
Dim freebytes As Double 



• see if fn can fit on fdr ( size is ns ) 



freebytes * GetDiskFreeSpaceLarge { start ingDrive ) 
If freebytes > spaceNeeed Then 



' it fits, so just put it here 



FindSpace = startingDrive 
Exit Function 
End If 



• doesn't fit, so check other drives 



db Found = False 
For i * 1 To 2 6 

If di .DriveType (Chr$ (64 + i) ) = 3 Or di . DriveType (Chr$ { 64 + i)) =4 Then 
di. Pathname = Chr$(64 + i) + " :\" 
freebytes = GetDiskFreeSpaceLarge (di . PathName) 



1 adjust freebytes for any dbfs that are already 
' targetted for this drive 



If freebytes > spaceNeeded Then 



it fits here, so put it here 



db Found = True 
Exit Function 
End If 
End If 

Next i 

If db Found = False Then 
FindSpace = 

Else 

FindSpace = di. PathName 
End If 

End Function 
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Public Function GetDiskFreeSpaceLarge (DriveLetter As String) As Double 



Dim hdb As Integer 
Dim bf As Double 
Dim buf As String 
Dim buf2 As String 
Dim fh As Integer 

fh = FreeFile 

On Error GoTo CantWrite 

Open DriveLetter + "test.txt" For Output As #fh 
On Error GoTo 0 
Print #fh, "Testing" 
Close #fh 



• execute both command.com and cmd.com. If running on Win95 

■ the command.com will work, and cmd.com will fail. On WinNT4 . 0 

• both will work, but the correct output of cmd.com will overwrite 
1 the incorrect output of command.com. This way the end result 

• will be correct regardless of OS... 

ExecDOSCmd < " command . com /c dir " + DriveLetter + "test.txt > c:\dbsizer.lst") 
ExecDOSCmd ("cmd /c dir " ♦ DriveLetter + "test.txt > c:\dbsizer.lst") 
hdb = FreeFile 

Open "c:\dbsizer.lst" For Input As #hdb 
Do Until EOF (hdb) 

Line Input #hdb, buf 

idx = InStr(UCase$(buf ) , UCase$ (RES (210) ) ) 
If idx > 0 Then 

buf = Left$<buf, idx - 2) 

For i% = Len(buf) To 1 Step -1 

If Mid${buf, i% ( 1) = " " Then 
buf = Mid$(buf, i% + 1) 
Exit For 
End If 
Next i% 
End If 

Loop 

Close #hdb 

rc = RemoveFile ("c:\dbsizer. 1st") 

rc ~ RemoveFile (DriveLetter & "test.txt") 

buf 2 = 

For i% = 1 To Len(buf) 

thischar = Mid$(buf, i%, 1) 

If thischar <> " " And thischar <> RES (211) Then 

buf2 - buf2 + thischar 
End If 
Next i% 

GetDiskFreeSpaceLarge = Val(buf2) 
Exit Function 

CantWrite : 

On Error GoTo 0 
GetDiskFreeSpaceLarge = 0 

End Function 



Public Function WriteNoteOf TheDay (szMsg As String) As Boolean 
Dim fh As Integer 

If UCase$ (g_WriteNoteof theDay) » "FALSE" Then 
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WriteNoteOfTheDay = True 
Exit Function 
End If 

If szMsg * " " Then 

szMsg = RES (110) 
End If 

fh = FreeFile 

Open App.Path & "\maint\notd. sql " For Output As #fh 

Print #fh, "connect pcpaysys/" & g_MaintPassword & " " 

Print #fh, "execute p_modif y_postnote ( ' " & szMsg & B ' , ' ADD 1 ) ; " 

Print #fh, "exit;" 

Close #fh 

fh = FreeFile 

Open App.Path & " \maint\notd. bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g szOracleHome & "\svrmgr23 ®" & App.Path & " \maint\notd . sql" 
Close #fh 

ExecDOSCmd (App.Path & " \maint\notd . bac" ) 
WriteNoteOfTheDay = True 

End Function 

Public Function ClearNoteOfTheDay ( szMsg As String) As Boolean 

Dim fh As Integer 

If szMsg = " M Then 

szMsg = RES (110) 
End If 

fh = FreeFile 

Open App.Path & "\maint\notd . sql " For Output As ttfh 

Print #fh, "connect pcpaysys/" & g_MaintPassword & ";" 

Print #fh, "execute p_modif y_postnote ( 1 " & szMsg & " ' , ' DEL ' ) ,- " 

Print #fh, "exit;" 

Close #fh 

fh = FreeFile 

Open App.Path & "\maint\notd.bat" For Output As 8fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\svrmgr23 0" & App.Path & " \maint\notd . sql" 
Close #fh 

ExecDOSCmd (App.Path & "\maint\notd.bat") 
ClearNoteOfTheDay = True 

End Function 

Public Function RemoveFile ( szFile As String) As Boolean 

f rmStatus. IblTicxer. Caption = "Removing " & szFile 

f rmStatus . Refresh 

DoEvents 

On Error GoTo CannotRemoveFile 

If Dir$ (szFile, vbNormal) <> "" Then 

Kill szFile 
End If 

On Error GoTo 0 

RemoveFile = True 

f rmStatus. lblTicker .Caption = 

f rmStatus .Refresh 

DoEvents 
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Exit Function 

CannotRemoveFile : 
On Error GoTo 0 
RemoveFile = False 
frmStatus.lblTicker. Caption = ntt 
frmStatus . Refresh 
Do Event s 
Exit Function 

End Function 



Public Sub BailOut (Restart As Boolean) 



' all entries processed, so shutdown the database 
* and bring it back up in normal mode. 



frmStatus.lblTicker. Caption = RES (103) 

frmStatus . Refresh 

DoEvents 

lAlertLogLength = FileLen (App . Path & "\..\log\pcpwALRT.log") 
ExecDOSCmd (App. Path & "\maint\shutdown.bat") 



• Make sure the database is shutdown 



fhCheck = FreeFile 

frmStatus . lblTicker. Caption - 

Open App. Path & "\..\log\pcpwALRT.log" For Input As #fhCheck 
Seek #fhCheck, lAlertLogLength 
bClosed ■ False 
Do Until EOF(fhCheck) 

Line Input #fhCheck, buf$ 

If Trim(buf$) = "Completed: ALTER DATABASE DISMOUNT" Then 

bClosed = True 
End If 

If Trim(buf$) = "Completed: ALTER DATABASE pay4win DISMOUNT" Then 

bClosed = True 
End If 
DoEvents 

Loop 
Close #fhCheck 
If bClosed ~ False Then 

• this means the database was not shutdown properly 

• note it in the HWB.LOG and the NOTE__OF_THE_DAY 

• table, then get out. 



rc = WriteLogFile(RES(104) ) 
rc = WriteNoteOfTheDay(RES (105) ) 
End If 

fh = FreeFile 

Open App. Path & "\maint\normal . sql" For Output As #fh 
Print #fh, "connect internal/" & g_Password 
Print #fh, "startup pfile=" & App. Path & "\initpcpw.ora" 
Close #fh 

If Restart Then 
fh = FreeFile 

Open App. Path & "\maint\normal.bat" For Output As #fh 
Print #fh, "set ORACLE_SID=PCPW" 

Print #fh, g_szOracleHome & "\svrmgr23 ®" & App. Path & "\maint\normal . sql" 
Close #fh 
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frmstatus. lblTicker .Caption = RES (200) 

frmstatus. Refresh 

DoEvents 

lAlertLogLength = FileLen (App . Path & " \ . . \log\pcpwALRT. log" ) 
ExecDOSCmd (App. Path & "\maint\normal .bat 11 ) 



Make sure the database is up in normal mode 



fhCheck = FreeFile 

frmstatus. lblTicker. Caption = "" 

Open App. Path & " \ . . \log\pcpwALRT . log" For Input As #fhCheck 
Seek #fhCheck, lAlertLogLength 
bClosed = False 
Do Until EOF(fhCheck) 

Line Input #fhcheck, buf$ 

If Trim(buf$) - "Completed: alter database open" Then 

bClosed = True 
End If 

If Trim(buf$) « "Completed: alter database pay4win noen" Then 

bClosed = True 
End If 
DoEvents 

Loop 
Close #fhCheck 
If bClosed = False Then 



note it in the HWB.LOG and the NCTEjDF_THE_DAY 
table, then get out. 



rc = WriteLogFile(RES(107) ) 
rc = WriteNoteOf TheDay (RES ( 108 ) ) 
End If 
End If 



delete all the temporary files, created during the 
Health check process 



If g_DEBUG_MODE = False Then 

Call Cleanup 
End If 

frmstatus. lblTicker. Caption = "" 

frmstatus .Refresh 

DoEvents 

rc - CloseLogFile () 
Unload frmStatus 
End 

End Sub 

Public Sub Cleanup 0 

rc = RemoveFile (App . Path & " \maint\perf . fc - ') 
rc = RemoveFile (App . Path & "\maint\gen_pk . sql" ) 
rc = RemoveFile (App . Path & "\maint\gen_pk.bat") 
rc - RemoveFile (App . Path 5c "\maint\gen_fkl . sql " ) 
rc = RemoveFile (App . Path & "\maint\gen_fkl.bat") 
rc = RemoveFile (App . Path & "\maint\gen_fk.bat") 
rc = RemoveFile (App . Path & "\maint\fkl . sql" ) 
rc = RemoveFile (App . Path & "\maint\f k . sql" ) 
rc = RemoveFile (App. Path & "\maint\f ix_idx. sql" ) 
rc = RemoveFile (App. Path & "\maint\fix_idx.bat") 
rc = RemoveFile (App. Path & "\maint\fix_tab.bat") 
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i "\maint\fix_tab.sql") 
& "\maint\pk.sql") 
& "\maint\export .bat rt ) 
& "\maint\Drop.sql") 
& "\maint\Drop.bat") 
St "\maint\Drop.Log") 
& "\maint\ddlpk.bat") 
U "\maint\ddlfk.bat") 
& "\maint\notd.sql") 
& "\maint\notd.bat") 
St "\maint\import.bat") 
& "\maint\Rbld_idx.bat") 
St "\maint\Rbld_idx.sql") 
& »\maint\shutdown.sql") 
& "\maint\shutdown.bat") 
St "\maint\normal.bat") 
St w \maint\riormal.sql") 
& "\maint\restrict.bat") 
& »\maint\restrict.sql") 
St »' \maint\analyze.bat") 
& "\maint\analyze .sql") 
& "\maint\bld_anal,sql") 
St "Vmaint\bld_anal.bat") 
U "\maint\db_info.bat") 
& "\maint\no_fix.bat") 



Cn Error GoTo NoMaintFilesToDelete 
Kill App. Path St »\maint\* .out" 



NoMaintFilesToDelete : 

On Error GoTo NoAdminFilesToDelete 
Kill App. Path St "Wout" 



NoAdminFilesToDelete : 
On Error GoTo 0 



End Sub 

Function StrEncode(s As String, key As Long) As String 

•Written by Gary Ardell. 

•free from all copyright restrictions 

Dim N As Long, i As Long, ss As String 

Dim kl As Long, k2 As Long, k3 As Long, k4 As Long, t As Long 

Dim salt As Boolean 

Static saltvalue As String * 4 

salt = False 
If salt Then 

^ t I lOoVu * Asc(Mid(saltvalue, 1. 1))) • RndO * (Timer * 1) 
Mid(saltvalue, i, 1) - Chr(t Mod 256) 

ff M id(saltvalue, 1, 2) U s St Mid (saltvalue, 3, 2) 
End If 

N = Lents) 
S s = Space (N) 
ReDim snlN) As Long 

xi - ii ♦ «k«y Mod 233) : k2 = 7 + (key Mod 23 ! } 

k3 = 5 + (key Mod 241) : k4 = 3 + (key Mod 251) 
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For i = 1 To N: sn<i) = Asc(Mid(s, i, 1) ) : Next i 
For i = 1 To N: Mid(ss, i, 1) = Chr(sn(i)): Next i 



StrEncode = ss 

saltvalue = Mid(ss, Len(ss) / 2, 4) 



End Function 

Function StrDecode <s A3 String, key As Long) As String 

'Written by Gary Ardell. 

•free from all copyright restrictions 

Dim N As Long, i As Long, ss As String 

Dim, kl As Long, k2 As Long, k3 As Long, k4 As Long 

Dim salt As Boolean 

salt = False 



N = Len{s) 
ss = Space (N) 
ReDim sn(N) As Long 

kl * 11 + (key Mod 233): k2 = 7 + (key Mod 239) 
k3 = 5 + (key Mod 241) : k4 = 3 * (key Mod 251) 

For i = 1 To N: sn(i) = Asc(Mid(s, i, D ) = Next 

, » „ /• i n\ yov fie 4 * sn(i + 1) ) M°d 2 56: Next 

For i - 1 To N - 2: sn(i) = snd) Xor snU + 2) Xor <k4 sn U _ 

For i = N To 3 Step -1: .nil) - sn(i> Xor snU - 2) Xor (k * Hod 256: Next 

For i = 1 To N - 1 : sn(i» = sn(i) Xor snfx ♦ 1) Xor (k2 snU )) ^ 

For i = N To 2 Step -1: sn(i) = snd) Xor snd - 1) Xor (kl 

For i - 1 To N: Midfss, i, 1) = Chr(snti)): Next i 

If salt Then StrDecode = Midlss, 3, Len(ss) - 4) Else StrDecode - ss 



End Function 

Public Function RES (resID As Integer) As String 

RES - LoadResString (g_LANGOFFSET + resID) 
End Function 
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